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EDITO 


LE BON PLAISIR 

160 pages de listings ! De belles nuits blanches en perspec¬ 
tive... Des jeux, bien sûr, mais aussi des utilitaires, des 
« bidouilles » pour pousser votre micro dans ses derniers 
retranchements et vous faire découvrir toutes les astuces des 
dizaines de programmeurs qui ont participé à ce « Micro¬ 
jeux ». Plus fort encore : une table d’équivalence vous per¬ 
met de retranscrire ou d’adapter les listings initialement pré¬ 
vus pour une autre machine que la vôtre ! Enfin, tous les pro¬ 
grammes présentés sont de grande qualité ; certains mérite¬ 
raient même d’être édités et commercialisés. Nos program¬ 
meurs ont préféré vous les offrir : à vous de les découvrir. 
Bon courage et... bon plaisir! 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Amstrad 

GFA 

ST 

Commodore 

Thomson 1.0 

Thomson 12f 


Valeur absolue 

ABS 

ABS 

ABS 

ABS 

ABS 

ABS 

- 

Code d’un caractère 

ASC 

ASC 

ASC 

ASC 

ASC 

ASC 

Arctangente 

ATN 

ATN 

ATN 

ATN 

- 

ATN 

Gestion des banques mémoire 

BANK 

- 

- 

- 

- 

BANK 


Produit un son bref 

- 

- 

- 

- 

BEEP 

BEEP 


Trace un rectangle 

- 

BOX 

- 

- 

BOX 

BOX 

Trace un rectangle plein 

- 

- 

- 

- 

BOXF 

BOXF 


Fusionne un prg en mémoire avec 
un autre en cours de chargement 

CHAIN 

CHAIN 

CHAIN 

- 

CHAIN 

CHAIN 


Caractère par son code ASCII 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

- 

Convertit un réel en entier 

CINT 

- 

CINT 

- 

CINT 

CINT 

Trace un cercle ou une ellipse 

— 

CIRCLE 

ELLIPSE 

CIRCLE 

ELLIPSE 

- 

CIRCLE 

CIRCLE 

F 

Effacement de variables 

CLEAR 

CLEAR 

CLEAR 

CLR 

CLEAR 

CLEAR 


Ferme un fichier 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 


Ferme une fenêtre 

- 

CLOSEW 

CLOSEW 

- 

- 

- 


Effacement écran 

CLS 

CLS 

CLS 

- 

CLS 

CLS 


Couleur texte et fond 

INK 

COLOR 

COLOR 

- 

COLOR 

COLOR 

- 

Reprise d’exécution après STOP 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

Cosinus 

COS 

COS 

COS 

COS 

COS 

COS 


Donne numéro de ligne du curseur 

YPOS 

CSRLIN 

- 

- 

CSRLIN 

CSRLIN 

- 

Convertit la chaîne en nb double précision 

- 

CVD 

CVD 

- 

CVD 

CVD 

- 

Convertit la chaîne en nb entier 

- 

CVI 

CVI 

- 

CVI 

CVI 

- 

Convertit la chaîne en nb simple précision 

- 

CVS 

CVS 

- 

CVS 

CVS 

- 

Lignes de données 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

Définition d’une fonction mathématique 

DEF FN 

DEF FN 

DEF FN 

DEF FN 

DEF FN 

DEF FN 



_ 

_ 

DEFDBL 

_ 

_ 

DEFDBL 


Déclaration du type d’un groupe de variables 

DEFINT 

DEFSNG 

— 

DEFINT 

DEFSNG 

— 

DEFINT 

DEFSNG 

DEFINT 

DEFSNG 

- 


DEFSTR 

— 

DEFSTR 

— 

DEFSTR 

DEFSTR 


Redéfinit un caractère 

SYMBOL 

- 

- 

- 

DEFGRS 

DEFGRS 

- 

Supprime une partie du programme 

DELETE 

- 

DELETE 

- 

DELETE 

DELETE 

- 

Détermine le périphérique par défaut 

- 

- 

- 

CMD 

DEVICE 

DEVICE 

Dimensions de tableaux 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

Affiche le contenu d’une disquette 

CAT 

DIR 

DIR 

- 

DIR 

DIR 

- 


WHILE 

DO 

WHILE 

_ 

_ 

DO 

« 


WEND 

LOOP 

WEND 

— 

— 

LOOP 



— 

EXIT 

— 

— 

— 

EXIT 


Boucle conditionnelle 

— 

REPEAT 

— 

— 

— 

— 



— 

UNT1L 

— 

— 

— 

— 



— 

WHILE 

— 

— 

— 

— 



— 

WEND 

— 

— 


— 


Fin de programme 

END 

END 

END 

END 

END 

END 

(■ 

Indique si l’on est à la fin d’un fichier 

EOF 

EOF 

EOF 

- 

EOF 

EOF 

- 

Efface un tableau 

ERASE 

ERASE 

ERASE 

- 

- 

- 

Donne le numéro de ligne où 
se trouve une erreur 

ERL 

ERL 

ERL 

- 

ERL 

ERL 

- 

Donne le code d’une erreur 

ERR 

- 

ERR 

- 

ERR 

ERR 

{- 

Simule une erreur 

ERROR 

ERROR 

ERROR 

- 

ERROR 

ERROR 

- 

Exécution d’une routine en LM 

CALL 

CALL 

EXEC 

CALL 

USR 

SYS 

EXEC 

USR 

EXEC 

USR 

- 

Exponentielle 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 


Formate un fichier en sortie 

- 

FIELD 

FIELD 

- 

FIELD 

FIELD 


Paramètre les E/S utilisables simultanément 

- 

FILES 

- 

- 

FILES 

FILES 

: 
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EQUIVALENCES DES INSTRUCTIONS BASIC 


i:ni : Basic 

Amstrad 

GFA 

ST 

Commodore 

Thomson 1.0 

Thomson 128 

— 

FOR 

TO 

STEP 

NEXT 

FOR 

TO 

STEP 

NEXT 

FOR 

TO 

STEP 

NEXT 

FOR 

TO 

STEP 

NEXT 

FOR 

TO 

STEP 

NEXT 

FOR 

TO 

STEP 

NEXT 

Knv ’ mémoire libre 

FRE 

FRE 

FRE 

FRE 

FRE 

FRE 

Amw-* ■■ : hier dans le tampon 

INPUT# 

LINE INPUT# 

GET# 

INPUT# 

LINE INPUT# 

GET# 

INPUT# 

LINE INPUT# 

GET# 

INPUT# 

GET# 

INPUT# 

LINE INPUT# 

GET# 

INPUT# 

LINE INPUT# 

4«ru; nw le programme 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

ftww t ne antre ligne 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

C m _ ecimal hexa 

HEX 

HEX $ 

HEX $ 


HEX $ 

HEX $ 

- — 

IF 

THEN 

ELSE 

1F 

THEN 

ELSE 

IF 

THEN 

ELSE 

IF 

THEN 

IF 

THEN 

ELSE 

IF 

THEN 

ELSE 

^ • - : ne : : _che au clavier 

INKEY $ 

INKEY $ 

- 

GET 

INKEY $ 

INKEY $ 

htwfapoflE/S 

1NP 

INP 

INP 

- 

- 

- 

o-i i* cm saisie — 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

- saisie avec formatage 

- 

INPUT $ 

INPUT $ 

- 

INPUT $ 

INPUT $ 

t ne chaîne 

•i ir dans une autre 

1NSTR 

INSTR 

INSTR 

- 

INSTR 

INSTR 

Vmbb > .s grand entier égal 

INT 

INT 

INT 

INT 

INT 

INT 

Am mb anct. d’une chaîne 
aUM.:Ti erique en partant de la gauche 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

» aract i une chaîne alphanumérique 

LEN 

LEN 

LEN 

LEN 

LEN 

LEN 

^êêtzmt. mm :€ -a ri a blés 

LET 

LET 

LET 

LET 

LET 

LET 

a— — 

DRAW 

LINE 

LINEF 

- 

LINE 

LINE 

Mar • Me « sie d’une chaîne 

SB xnæres maximum 

UNE INPUT 

LINE INPUT 

LINE INPUT 

- 

LINE INPUT 

LINE INPUT 

Bat • emrne en mémoire 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

CAm - * r-rramme en mémoire 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

~ ~ ?r binaire en mémoire 

- 

BLOAD 

BLOAD 

- 

LOADM 

LOADM 

a curseur texte 

LOCATE 

PRINT (AT) 

GOTOXY 

- 

LOCATE 

LOCATE 

^•prttaBc aêpérien 

LOG 

LOG 

LOG 

LOG 

LOG 

LOG 

Bbmkmc jif la gauche 
#4:» mnc i .r ranumérique 

- 

LSET 

LSET 

- 

LSET 

LSET 

Smmi •* rr -rrr le plus élevé 
wmmbk âmms ne liste 

MAX 

MAX 

- 

- 

- 

MAX 

•3m - > .i p * ^grammes par amalgame 

MERGE 

MERGE 

MERGE 

- 

- 

MERGE 

£mûh 2 aae chaîne 
tmm***** m one autre 

M1D $ 

MID $ 

MID $ 

MID $ 

MID $ 

MID $ 

km» m fiocs petit chiffre 

MIN 

MIN 

- 

- 

- 

MIN 

Cjm ■—t sm afc en double précision en chaîne 

- 

MKD $ 

MKD $ 

- 

- 

MKD $ 

Ci» 1 -~" r r* entier en chaîne 

- 

MKI $ 

MKI $ 

- 

MKI $ 

MKI $ 

Can-—— . - - : en simple précision en 

— 

MKS $ 

MKS $ 

_ 

MKS $ 

MKS $ 

3nfipt « an d’un fichier 

RENAME 

NAME 

NAME 

- 

NAME 

NAME 

IHtar ■ -* pr rramme en mémoire 

NEW 

NEW 

NEW 

NEW 

NEW 

NEW 

l~ wrr «■ octal 

OCT 

OCT $ 

OCT $ 

- 

- 

OCT $ 

a n ii m ■ ea cas d’erreur 

ON ERROR 

ON ERROR 

ON ERROR 

- 

ON ERROR 

ON ERROR 

ea fonction d’une variable 

ON GOSUB 

ON GOTO 

ON GOSUB 

ON GOTO 

ON GOSUB 

ON GOTO 

ON GOSUB 

ON GOTO 

ON GOSUB 

ON GOTO 

ON GOSUB 

ON GOTO 

l^sni ai ’Vbier en écriture 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

CL- it Mfir mm port E S 

OUT 

OUT 

OUT 

- 

- 

- 

A— giir ne rené écran 

FILL 

FILL 

FILL 

- 

PAINT 

PAINT 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Amstrad 

GFA 

ST 

Commodore 

Thomson 1.0 

Thomson 128 

Affecte une couleur à un crayon 

PEN 

COLOR 

COLOR 

— 

- 

PALETTE 

Fixe un motif de remplissage pour 

PAINT, BOXE, etc 

- 

COLOR 

COLOR 

- 

- 

PATTERN 

Lecture d’une adresse mémoire 

PEEK 

PEEK 

PEEK 

PEEK 

PEEK 

PEEK 

Emission de sons complexes 

SOUND 

SOUND 

SOUND 

- 

PLAY 

PLAY 

Teste un point graphique 

TEST 

POINT 

- 

- 

POINT 

POINT 

Ecriture à une adresse mémoire 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

Indication de la position 
du curseur sur une ligne 

XPOS 

CURSCOL 

POS 

POS 

POS 

POS 

Affiche une chaîne alphanumérique à l’écran 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

Ecrit dans le fichier spécifié 

PRINT# 

WRITE# 

PRINT# 

PUT# 

WRITE# 

PRINT# 1 

PUT# 

WRITE# 

PRINT# 

PRINT# 

PUT# 

WRITE# 

PRINT# 

PUT# 

WRITE# 

Formatage de l’affichage 

PRINT USING 

PRINT USING 

PRINT USING 

- 

PRINT USING 

PRINT USING 

Allume un point graphique 

PLOT 

PLOT 

- 

- 

PSET 

PSET 

Restitue à l’écran une portion de tableau 

- 

PUT 

- 

- 

PUT 

PUT 

Lecture des DATA 

READ 

READ 

READ 

READ 

READ 

READ 

Permet de mettre des commentaires 

REM 

REM 

REM 

REM 

REM 

REM 

Renumérote des lignes du programme 
en mémoire 

RENUM 

- 

RENUM 

- 

RENUM 

RENUM 

Initialisation de la machine 

CALLO 

QUIT 

QUIT 

- 

DOS 

RESET 

Initialisation des DATA 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

Fin de branchement en cas d’erreur 

RESUME 

RESUME 

RESUME 

- 

RESUME 

RESUME 

Fin de sous programme 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN . 5 

Extraction des caractères d’une chaîne 
alphanum. en partant de la droite 

RIGHT $ 

RIGHT $ 

RIGHT $ 

RIGHT $ 

RIGHT $ 

RIGHT $ 

Donne un nb pseudo-aléatoire 

RND 

RND 

RND 

RND 

RND 

RND 

Formatage d’une chaîne à droite 

- 

RSET 

RSET 

- 

RSET 

RSET 

Lance l’exécution 

RUN 

RUN 

RUN 

RUN 

RUN 

RUN 

Sauvegarder un programme 

SAVE 

SAVE 

SAVE 

SAVE 

SAVE 

SAVE 

Sauvegarde d’un fichier binaire 

- 

BSAVE 

BSAVE 

- 

SAVEM 

SAVEM 

Imprime l’écran 

- 

HARDCOPY 

- 

- 

SCREENPRINT 

SCREENPRINT : ~ 

Donne le signe d’un nombre 

SGN 

SGN 

SGN 

SGN 

SGN 

SGN 

Sinus 

SIN 

SIN 

SIN 

SIN 

SIN 

SIN 

Crée une chaîne constituée d’espaces 

SPACE $ 

SPACE $ 

SPACE $ 

- 

SPACE $ 

SPACE $ 

Tabulation 

SPC 

SPC 

SPC 

SPC 

SPC 

SPC 

Racine carrée 

SQR 

SQR 

SQR 

SQR 

SQR 

SQR 

Arrêt d’exécution 

STOP 

STOP 

STOP 

STOP 

STOP 

STOP 

Transforme un nb en chaîne alpha. 

SRT $ 

STR $ 

STR $ 

STR $ 

STR $ 

STR $ 

Crée une chaîne constituée de X fois un 
caractère 

STRING $ 

STRING $ 

STRING $ 

- 

STRING $ 

STRING $ 

Echange le contenu de deux variables 

- 

SWAP 

SWAP 

- 

SWAP 

SWAP 

Tabulation 

TAB 

TAB 

TAB 

TAB 

TAB 

TAB 

Tangente 

TAN 

TAN 

TAN 

TAN 

TAN 

TAN 

Gestion du mode test 

TROFF 

TRON 

TROFF 

TRON 

TROFF 

TRON 

— 

TROFF 

TRON 

TROFF 

TRON 

Valeur numérique d’une chaîne 
alphanumérique 

VAL 

VAL 

VAL 

VAL 

VAL 

VAL 

Donne l’adresse d’une variable 

- 

VARPTR 

VARPTR 

- 

VARPTR 

VARPTR 

Vérification des enregistrements 
sur disquette 

_ 

— 

— 

VERIFY 

VERIFYON 

VERIFYON 

VERIFYON 

VERIFYON 

Attente 

- 

- 

WAIT 

WAIT 

- 

WAIT 

Crée une enveloppe de son 

ENV/ENT 

WAVE 

WAVE 

- 

- 

_ 

Création d’une fenêtre 

WINDOW 

OPENW 

OPENW 

- 

- 

WINDOW _ - 


Le tableau n’est exact que pour certaines configurations. Les possesseurs d’Amstrad, de Thomson TO 7/70 et MO 5 sans lecteur de disquettes devront de ce k - 

apporter une attention toute particulière à leurs conversions. Enfin, notez que ce tableau ne comprend que les instructions les plus courantes. 
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AMSTRAD CPC 


BOMBARDIER 

Le principe est enfantin : vous devez détruire 
la ville afin de vous poser sans dommages. Pour cela, 
larguez les bombes à l'aide de la touche 
« flèche en bas ». Mais ne les lâchez qu'au bon moment. 


s. 
•» 


-- 








BOMBARDIER 

' 1,60,5,0 

.14:1NK 1,0s INK 2,12 
: E = D:PEN 1 
OCU #1,1,40,1,1 

I I<- #1,1,40,1,1 

«=ER #1,2 

-BOL AFTER 242 
~52_ 242,28,159,255. 

- ?I- 243,0,0,240,254,240,0,0,0 
5 = ;-=:*■■ (242) h-CHRT (243) 

-rI_ 244,0,0,60,60,60,52,60,60 
: :^=CHR$<244> 

- 5 2_ 245,0,96,96,6,6,96,96,0 
'1£=CHR*(245) 

“'BOL 246,-0,12,12,96,96,12,12,0 


2 . E”2i-=2HR* (246) 


= 2-R*(247) 

I _ 248,24,24,60,60,126,126,255,2 


E:Zî=ZHR$(248) 

E 249,24,24,24,24. 


,60,126,255 


' r (249) 

S - 2 2_ 250,36,36,2.4,24 „ 60,60,24,0 
: . ;=ZHR$ (250) 

E »i:_ 251,60,24,129,219,219,129„24, 
E: :*=CHR$(251) 

r • 252,124,56,56,254,254,124 „ 124 

:-:s = HR$(252) 

z • r — —53,5 & , 5é>, 5<b , 1 ô , 1 6) , 0 ^ 0 , U 
:-Zi=Z- z S (253) 

2 1“ E - 2,2 ) , TA ( 40 ) , DP < 40 ) ,’*P0 ( 40 ) , BU ( 

- = r : : 5=200 : C= 10 : D= 100 s E=40 :: F=200 
E E =: : - w =650 


• 6,8,14,15,1,0,2,18,19,4,12,9,10 

.5,16,13,7 

■ 2=,28,34,35,21,20,22,38,39,24,3 
71,37,23,25,36,33,27 
'2 = 5 390 
2-IZE TIME 


430 ID=INT(RND(1)*8)+1 
440 IF ID=9 THEN 420 
450 FOR X=1 TO 40 
460 READ PO(X):NEXT X 

470 LOCATE 5,8:INPUT "Réglé du jeu (0/IM) 

" ; Kf- 

480 IF K*="n" OR K$="N" THEN 640 

490 IF K$<>"o" AND K$<>"0" THEN PRINT CH 

R*(7); : GOTO 470 

500 CLS 

510 LOCATE 1,3SPRINT "Ce jeu se joue uni 
quement avec la" 

520 F'RINT "touche FLECHEE " ; CHRT- (241 ) ; " 
pour larguer" 

530 F'RINT "2 bombes qui equipent votre a 
vion. "sF'RINT 

540 F'RINT "Vous ne pouvez avoir en l'air 
que 2" 

550 F'RINT "bombes en meme temps, F'RINT 
560 F'RINT "Quand vous touchez la base d' 
un " 

570 F'RINT "batiment, vous obtenez 50 uni 
tes" 

580 F'RINT "de fuel supplémentaires," 

590 LOCATE 20,18: F'RINT "BONNE CHANCE ... 

Il 

600 INK 3,0,14:PEN 3 

610 LOCATE 5,22s F'RINT "Appuyez sur une t 
ouche" 

620 A$=INKEY$:IF A*="" THEN 620 
630 CLS 

640 INK 3,5:PEN 1 

650 GOSUB 1350 

660 GOSUB 1550 

670 FOR X=1 TO 21 

680 FOR Y=1 TO 40 

690 BU(X,Y > =0 

700 NEXT Y 

710 NEXT’X 

720 GOSUB 1630 

730 GOSUB 1800 

740 L=2:C=1:TIR=0 

750 GOSUB 2060 

760 SOUND 1,1911,20,4 

770 C=C+1 

780 IF 040 THEN C=1:L=L+1:IF L>19 THEN 
1070 

790 IF BU <L,C)< >1 THEN 980 

800 '-scratch buildings- 

810 FOR 1 = 1 TO 5: SOUND 3,0,5,15:NEXT I 

820 PEN 3 

830 LOCATE C,LsF'RINT EX1T 


























































840 SOUND 1,1911,20,4 

850 FOR 1 = 1 TO 5: SOUND 3,0,5,15:NEXT I 
860 F'EN 1 

870 IF C<3 THEN LOCATE 39, L.-1 : PR INT " 

: GOTO 890 

880 LOCATE C-1,L:F'RINT " " 

890 PRINT CHR*(7); 

900 LOCATE 3,3:PRINT "Vous avez percute 
un batiment" 

910 GOSUB 1550:GOTO 1070 

920 '-effacer les balles- 

930 X = 1 

940 IF TIR=0 THEN RETURM 

950 LOCATE BA<X,2) ,BA<X,1)s PRINT " " 

960 X=X+1:TÏR=TIR-1 
970 GOTO 940 

980 '-animation de l'avion- 

990 LOCATE C,L:PRINT AV* 

1000 IF C=1 THEN LOCATE 39,L-l:PRINT " 

": GOTO 1020 

1010 LOCATE C—1,L:PRINT " " 

1020 FU=FU—1 
1030 GOSUB 2140 
1040 GOSUB 1550 
1050 IF FU>0 THEN 750 
lu60 GO I0 1150 

1070 '-p1 us d'avions- 

1080 PRINT CHR*(7); 

1090 PRINT "LA PARTIE EST TERMINEE,NOTEZ 
VOTRE" 

1100 PRINT "SCORE ET A LA PROCHAINE FOIS 

1110 FOR A=1 TO 10000:NEXT A 
1120 INK 0,1:INK 1,24 
1130 PAPER 0 : F’EN 1 
1140 MODE 1 :LOCATE 1,1:END 

1Î50 '-plus de fuel- 

1160 PRINT CHR*(7); 

1170 LOCATE 3,3:PRINT "Plus de fuel" 

1180 GOSUB 1550 

1190 LOCATE C,L:PRINT " 

1200 IF L-l<3 THEN 1220 
1210 LOCATE C,L-l:PRINT " " 

1220 GOSUB 2140:L=L+1 
1230 SOUND 1,1911,20,4 

1240 IF BU (L_, C) < > 1 AND L<19 THEN 1320 
1250 SOUND 1,1911,20,4 
1260 LOCATE C , L.-1 : PRINT " " 

1270 FOR 1=1 TO 5:SOUND 3,0,5,15:NEXT I 

1280 GOSUB 920 

1290 LOCATE C,L: PRINT EX1* 

1300 FOR 1=1 TO 5:SOUND 3,0,5,15:NEXT I 
1310 LOCATE 1,4:GOTO 1070 
1320 LOCATE C,L-1: PRINT CH:! * 

1330 LOCATE C,L:PRINT CH2* 

1340 GOTO 1210 

1350 '-dessin écran- 

1360 CLS 

1370 CLS #1 

1380 PAPER 2 

1390 FOR B=20 TO 25 

1400 LOCATE 1,B 

1410 FOR A=i TO 40 

1420 PRINT " 

1430 NEXT A 
1440 NEXT B 
1450 PAPER 0 


1460 LOCATE 1,2 
1470 PRINT AV* 

1480 LOCATE #1,2,1 
1490 PRINT #1,"SCORE:" 

1500 LOCATE #1,14,1 
1510 PRINT #1,"FUEL:" 

1520 LOCATE #1,25,1 
1530 PRINT #1,"CIBLES:" 

1540 RETURN 

1550 '-écriture du score- 

1560 LOCATE #1,8,1 s PRINT tt1,BL* 

1570 LOCATE #1,8,1:PRINT #1,SC 
1580 LOCATE #1,19,1 : PRINT #1,BL* 

1590 LOCATE #1,19,1 : PRINT #1,FU 
1600 LOCATE #1,32,1 s PRINT #1,BL* 

1610 LOCATE #1,32,1 :PRINT #1,CIBLE 
1620 RETURN 

1630 '-nombre d'etages et de building 

s- 

1640 CIBLE=0 

1650 HMAX=5+NBC0U 

1660 IF UMAX >15 THEN HMAX = 15 

1670 NA=6+NBC0U 

1680 IF NA>40 THEN NA=40 

1690 IF NBCOU>20 THEN NBC0U=20 

1700 FOR 1=1 TO NA 

1710 RANDOMIZE TIME 

1720 TA(I)=INT((HMAX—NBCOU)*RND(1))+NBC0 
U+4 

1730 N=ID+I 

1740 IF N>40 THEN N=1 

1750 DP(I)=P0(N) 

1760 CIBLE=CIBLE+TA(I) 

1770 NEXT I 
1780 GOSUB 1550 
1790 RETURN 

1800 -affichage des buildings- 

1810 FOR B=1 TO NA 

1820 IF A=0 THEN A=1 ELSE A=0 

1830 PAPER 1 

1840 IF A=0 THEN F'EN 2 ELBE F'EN 3 
1850 LOCATE 1+DP(B),19 
1860 PRINT F'Ol* 

1870 BU(19,l+DPXB)>=1 

1880 L=18:C=DP(B)+1 

1890 PAPER 3: F'EN 2 

1900 IF A=1 THEN PRINT CHR*<24); 

1910 FOR X=2 TO TA(B)-1 
1920 RANDOMIZE TIME 
1930 AIG=INT(RND(1)) +1 
1940 LOCATE C,L 

1950 IF AIG=1 THEN PRINT ET1* ELSE PRINT 
ET2* 

1960 BU(L,C> =1 :L=L-1:NEXT X 
1970 BU (L, 0=1 
1980 LOCATE C,L 
1990 RANDOMIZE TIME 
2000 A IG=INT(RND(1)*3 > +1 
2010 IF AIG=4 THEN 1990 
2020 PAPER 0 : F'EN 1 

2030 1F AIG=3 THEN PRINT SOI*:GOTO 2050 

2040 IF AIG=2 THEN PRINT 302* ELSE PRINT 

S03* 

2050 NEXT B:RETURN 

2060 '-tir ?- 

2070 IF TIR=2 THEN RETURN 

2080 IF INKEY (2) 1 THEN RETURN 
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2090 X = 1: IF TIR=1 THEN X=2 

2100 SOUND 2,60,20 , 1 

2110 BA(X,1)=L:BA(X,2 > =C: TIR=TIR+1 

2120 SOUND 2,60,20,1 

2150 RETURN 

2140 '-animation des balles- 

2150 IF TIR=0 THEN 2490 
2160 X=1 

2170 LOCATE BA(X,2),BA(X,1):PRINT " " 
2180 BA(X,1)=BA(X,1)+1 

2190 IF BA(X,1)>19 AND BU(BA(X,1),BA(X,2 
)<>1 THEN 2340 

2200 IF BU(BA(X,1),BA(X,2 > > <>1 THEN 2380 
2210 PEN 3 

2220 FOR 1 = 1 TO 5s SOUND 3,0,5,15sNEXT I 


2230 LOCATE BA (X,2) , BA < X,1)s PRINT EX1$ 
2240 PEN 1 

2250 BU ( BA ( X , 1 ),BA(X,2))=0 

2260 IF BA(X, 1)019 THEN 2290 

2270 FOR 1=1 TO 5:SOUND 3,0,5,15sNEXT I 


2280 FU=FU+50 

2290 CIBLE=CIBLE-1 s SC=SC+1 

2300 IF CIBLE>0 THEN 2330 

2310 LOCATE BA(2,2) ,BA(2,1) s PRINT " " 

2320 GOTO 2420 

2330 LOCATE BA(X,2 > ,BA(X,1)s PRINT " " 
2340 TIR=TIR—1 

2350 IF TIR=0 OR X=2 THEN RETURN 
2360 BA(1,1)=BA <2,1)sBA(1,2)=BA(2,2) 
2370 GOTO 2160 

2380 LOCATE BA ( X,2) ,BA(X,1)s PRINT BO1 î 

2390 IF TIR=1 THEN RETURN 

2400 IF X=2 THEN RETURN 

2410 X=2s GOTO 2170 

2420 NBCOU=NBCOU+1 

2430 FU=650 

2440 LOCATE 1,2s PRINT AV$ 

2450 LOCATE C,LsPRINT " 

2460 LOCATE C , L.-1 s PRINT. 

2470 LOCATE BA ( X, 2) ,BA < X,1 )s PRI NT " " 
2480 GOTO 660 
2490 RETURN 


AMSTRAD CPC 


CALCULETTE 

Comme chacun sait, les ordinateurs calculent fort bien. 
Encore faut-il avoir à disposition un programme efficace qui 
affranchit l'utilisateur^des fastidieuses commandes 
du mode direct. C'est ce que vous propose ce listing. 


1,0 ■_ 

20 ' CALCULETTE 

40 PEN 1 s PAPER 0 
50 DIM T(100),T$(100) 

60 DIM LIT(13) 

70 DATA +, — ,*,/,@,"'",A,B,C,D,E,F,G 
80 FOR A=1 TO 13 
90 READ LIT(A) 

100 NEXT A 

110 AT="######.##" 

120 CT=0 : 1 = 1 s CLS 
130 LOCATE 8,1 

140 PRINV'C ALCULATRICE" 

150 LOCATE 2,4sPRINT"OPERATEURS s 

*,©,•-•" 

160 LOCATE 2,6sPRINT"ABREVIATIONS s" f 
170 LOCATE 5,7:PRINT"A s MEMORISATION" 
180 LOCATE 5,8s PRINT"B s REMISE A ZERO G 
ENERALE" 

190 LOCATE 5,9s PRINT"C s REMISE A ZERO D 
U TOTAL EN COURS" 

200 LOCATE 5,10s PRINT"D s REMISE A.ZERO 
DU TOTAL MEMORISE" 

210 LOCATE 5,11s PRINT"E s RAPPEL MEMOIRE 
EN 1er FACTEUR" 

220 LOCATE 5,12sPRINT"F s RAPPEL MEMOIRE 


EN 2eme FACTEUR" 

230 LOCATE 5,13sPRINT"G s FIN" 

240 LOCATE 5,14; PRINT"© s MODUL.O" 

25.0 LOCATE 5,15s PRINT"'"- s PUISSANCE" 

260 GOSUB 1260 
270 zz (5)=13 

280 '*** SAISIE ABREVIATION *** 

290 0F'$= " " s PAPER Os PEN 3 
300 FOR 1=17 TO 20 
310 LOCATE 11,1 SPRINT" 

320 NEXT I 

330 LOCATE 11,17 

340 OF'ERf,= INKEY-T s oper$=UPPER$ (OPER-t ) s IF 
OF'ER'i : = " " THEN 340 

350 IF OPER*<"A" OR OPER*>"G" THEN 450 
360 PRINT OPERT- 
370 FOR IOF-7 TO 13 

380 IF ASC ( OF'ER* ) < >ASC ( LI $ ( I OP ) ) AND I OP 
< Z Z ( 5) THEN NEXT 

390 IF ASC ( OPER$ ) < >ASC ( LI * ( I 0F' ) ) THEN 33 
0 

400 GOSUB 800s IF 0F'$="" THEN 430 

410 IF OP*="A" THEN 570 

420 IF OP*="B" THEN 450 

430 GOSUB 1260 

440 GOTO 280 

450 '*** SAISIE 1ER NOMBRE *** 
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460 IF 0P$="A" THEN 570 

470 ZZ(1)=18 

480 ZZ(2)=11 

490 ZZ(3)=5 

500 ZZ(4)=1 

510 GOSUB 1390:IF NUMCHI=0 THEN 470 
520 T(I)=NUMCHI 
530 CT=CT+1 

540 IF CT>90 THEN LOCATE 2,22:PRINT"ATTE 
NTION, TABLE BIENTOT PLEINE ..." 

550 1=1+1 
560 A=NUMCHI 

570 '*** SAISIE OPERATEUR *** 

580 LOCATE 11,20 
590 OPER$=INKEY$ 

600 IF OPER*="" THEN 590 
610 FOR I0P=1 TO 6 

620 IF ASC ( OF'ER* ) < >ASC (LIT(IOP) > THEN NE 
XT 

630 IF ASC (OPERT-) < >A5C (L.I$ ( IOP) ) THEN 58 
0 

640 LOCATE 11,19:PRINT OPERÆ 
650 '*** SAISIE 2EME NOMBRE *** 

660 IF OPt-="B" THEN 0P*=" " : GOTO 780 

670 Z Z(1)=20 

680 ZZ(2)=11 

690 ZZ(3)=5 

700 ZZ(4)=1 

710 GOSUB 1390 

720 IF NUMCHI=0 THEN 670 

730 T <I)=NUMCHI 

740 CT=CT+1- 

750 IF CT>90 THEN LOCATE 22,2:PRINT"ATTE 
NTION, TABLE BIENTOT PLEINE..." 

760 1=1+1 

770 B=NUMCHI 

780 GOSUB 800 

790 GOSUB 1260:GOTO 280 

800 ON IOP GOTO 810,840,870,900,930,960, 
1090,1010,1030,1060,1120,1190,1000 

810 '- ADDITION 

820 TT=TT+(A+B) 

830 RETURN 

840 '- SOUSTRACTION 

850 TT=TT+(A—B) 

860 RETURN 

870- '- MULTIPLICATION 

880 TT=TT+(A*B) 

890 RETURN 

900 '- DIVISION 

910 TT=TT+(A/B) 

920 RETURN 

930 '- MODULO 

940 TT=TT+(A-(INT(A/B)*B)) 

950 RETURN 

960 '- PUISSANCE 

970 TT=TT+<A'-B) 

980 RETURN 

990 '- FIN 

1000 CLS:END 

1010 '## REMISE A ZERO GENERALE 
1020 TT2=0:TT=0:CT=0: I = 1 


1030 '## REMISE A ZERO TOTAL EN COURS 
1040 TT=0 


1050 RETURN 

1060 '## REMISE A ZERO MEMOIRE 
1070 TT2=0 
1080 RETURN 

1090 '*ttt MEMORISATION TOTAL EN COURS 
1100 TT2=TT2+TT 
1110 RETURN 

1120 'RAPPEL MEMOIRE * E * 

1130 FOR X=ZZ(2) TO ZZ(2>+6 
1140 LOCATE X,ZZ(1>SPRINT" " 

1150 NEXT 

1160 A=TT2:OP*="A" 

1170 LOCATE 10,18:PRINT A 
1180 RETURN 

1190 '## RAPPEL MEMOIRE * F * 

1200 FOR X=ZZ(2) TO ZZ<2)+6 
1210 LOCATE X,ZZ(1):PRINT" " 

1220 NEXT 

1230 B=TT2:OP$="B" 

1240 LOCATE 10,20:PRINT B 
1250 RETURN 


1260 GOSUB 1580 

1270 F'EN 2: PAPER 3 

1280 LOCATE 19,17:PRINT"S/TOTAL:" 

1290 LOCATE 19,20:FRINT"MEMOIREs" 

1300 PEN 1:PAPER O 

1310 LOCATE 2,17:PRINT "ABREV. :" 

1320 LOCATE 2,18: PF;INT "NOMBRE :" 

1330 LOCATE 2,19:PRINT "OPERAT.:" 

1340 LOCATE 2,20:F'RINT “NOMBRE :" 

1350 PAPER 3 

1360 LOCATE 28,17:PRINT USING.a$;tt 
1370 LOCATE 28,20:PRINT USING a$stt2 
1380 RETURN 

1390 FOR X=ZZ(2) TO ZZ(2)+6 
1400 LOCATE X,ZZ(1):PRINT" " 

1410 NEXT 

1420 LOCATE ZZ(2),ZZ(1) 

1430 ZZC=ZZ(2) 

1440 ZZ.S=ZZ (2) +ZZ (3)-1 
1450 NUMCHI=0: CHIF$="0" 

1460 OPER$=INKEY$ 

1470 IF OPER$="" THEN 1460 

1480 IF ASC (OF'ERÆ) = 13 THEN RETURN 

1490 IF ASC<0PER$)<48 OR ASC(OPERf)>57 T 

HEN LOCATE ZZC,ZZ(1): GOTO 1460 

1500 CHIF$=CHIFT+OPERT:NUMCHI=VAL(CHIFï) 

1510 LOCATE ZZC,ZZ(1) 

1520 PRINT OPER* 

1530 ZZC=ZZC+i 

1540 IF ZZOZZS THEN RETURN 

1550 LOCATE ZZC,ZZ(1) 

1560 GOTO 1460 

1570 GOSUB 1580:RETURN 

1580 b$="" 

1590 FOR J=1 TO 23 :b$=b$+" ":NEXT' 

1600 PAPER 3 

1610 FOR J = 17 TO 20 :LOCATE 18,J s PRINT b 

■$: NEXT 




1620 RETURN 
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AMSTRAD CPC 

CAR MASSACRE 

Pilote d'un bolide, vous en voulez au monde entier. 
Sans vergogne, vous appuyez sur le champignon et écrasez 
des chiens, des petites vieilles, etc. 

Le pire est que tout ceci vous rapporte des points... 


Remarques : 

Tapez le premier listing (EDICAT) et sauvegardez-le. Ensuite 
tapez RUN. Vous devez alors entrer les valeurs du second lis¬ 
ting ligne par ligne. Attention, les dernières valeurs de cha¬ 
que ligne ne sont pas à saisir. Elles permettent de vérifier si 
les huit octets entrés précédemment sont corrects ou non. Si 
vous désirez interrompre la saisie et quand vous avez terminé, 
tapez S. Avec des cassettes, mettez-en une seconde avant de 
taper cette commande. Une fois la saisie terminée, un fichier 
binaire est créé. Il se nomme MASSABIN. Vous devez alors 
entrer le troisième programme et le sauvegarder. Si vous tra¬ 
vaillez sur cassettes, sauvezde à la place du premier listing sous 
MASSACRE et recopiez le fichier binaire MASSABIN à la suite. 
Le dernier listing affiche à l’écran le contenu du fichier binaire. 
Sa justification est évidente dès qu’un problème se pose. Pour 
jouer, tapez RUN «MASSACRE». 


10 ' EDICAT 

20 MEMORY UFFF 

30 INF'UT "ADRESSE DEBUT " ; AD 

40 PRINT HEX*(AD>"-> 

50 INF'UT A* 

60 IF A$<>"S" THEN 90 
170 SAVE "MASSABIN" , B , &2000 , ?<2F9A 
BO GOTO 40 

90 IF LEN(A$)=16 THEN 120 
100 PRINT "ERREUR DE FORMAT" 

110 GOTO 40 
120 S—O 

130 FOR X=0 TO 7 

140 0=VAL<"&"+MID$(A$,X*2+1,2)) 

150 S=S+0 

160 POKE AD,0 

170 NEXT 

180 PRINT "SOMME: ";HEX#(S) 

190 AD=AD+8 
200 GOTO 40 


2300 00 ee se ac 3 c 00 00 0C s 03c 

2008 0C 0C SC 00 00 0C 0.C 00 ; 048 


2013 

0C 

03 

30 

SC 

SC 

00 

SC 

00 

s 03 C 

2013 

00 

FF 

SC 

0C 

FF 

00 

00 

FF 

315 

2020 

0C 

0C 

FF 

00 

00 

FF 

18 

24 

: 252 

2028 

FF 

00 

00 

04 

30 

B A 

38 

S0 

;; 1F 5 

2030 

00 

04 

75 

BA 

08 

00 

SS 

S4 

: 13F 

2333 

30 

B A 

08 

S0 

00 

0C 

30 

B A 

: 1 ES 

2040 

0C 

00 

00 

SC 

18 

24 

SC 

00 

: 060 

2048 

00 

0C 

SC 

0C 

0C 

00 

00 

SC 

s 03 C 

2350 

0C 

0C 

0C 

00 

00 

SC 

SC 

3C 

;; 048 

2358 

0C 

00 

00 

0C 

0C 

3C 

0C 

00 

s 030 

2060 

00 

0C 

0C 

SC 

SC 

00 

00 

SC 

5 03 C 

2068 

5D 

AE 

0C 

00 

00 

SC 

5D 

AE- 

ï 22E 

2070 

0C 

00 

00 

04 

00 

SC 

38 

00 

;; 030 

2078 

00 

00 

0C 

SC 

00 

00 

55 

FF 

: 16 C 

2080 

0C 

SC 

FF 

AA 

55 

FF 

0C 

SC 

s 32 D 

2388 

FF 

AA 

55 

FF 

00 

00 

FF 

AA 

: 4BE 

2090 

55 

FF 

SC 

0C 

FF 

AA 

55 

C3 

:: 42D 

2393 

C3 

C3 

C3 

AA 

55 

C3 

03 

C3 

3 591 

20 A3 

C3 

AA 

55 

C3 

C3 

C3 

C3 

AA 

3 578 

23A8 

55 

C3 

C3 

C3 

C3 

AA 

55 

FF 

:55F 

;20B0 

SC 

0 C 

FF 

AA 

00 

00 

80 

0C 

3 1 CD 

20B8 

08 

00 

00 

04 

0C 

0C 

08 

00 

: 02C 
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23 ce 

04 

0C 

SC 

0C 

08 

00 

04 

0Ü 

s 048 

22 A 0 

46 

99 

89 

CC 

89 

CC 

ce 

(3(2 

s 455 

20 CS 

0C 

5 D 

AA 

00 

04 

0C 

0C 

5 D 

s ÎSC 

2 2 AS 

CC 

CC 

46 

CC 

89 

46 

03 

66 

: 3E2 

23 DE 

AA 

00 

55 

AE 

0C 

5D 

AA 

00 

s 2C3 

22B0 

CC 

03 

ce 

cc 

46 

46 

CC 

03 

s 3BF 

2 SD 8 

55 

AE 

30 

0 C 

08 

00 

55 

BA 

s 256 

22B8 

46 

99 

cc 

00 

89 

33 

13 

89 

s 2D3 

23 ES 

75 

24 

38 

30 

00 

18 

FF 

24 

s IDC 

22 CS 

CC 

89 

46 

CC 

CC 

00 

CC 

03 

i: 432 

20E8 

0C 

00 

00 

18 

75 

24 

0C 

30 

; 0C9 

22C8 

CC 

89 

CC 

03 

CC 

CC 

cc 

00 

s 488 

20 F 0 

(30 

18 

75 

24 

0C 

30 

00 

0C 

s 0C9 

22D0 

cc 

89 

cc 

46 

66 

46 

66 

CC 

s 445 

2 0F S 

30 

0C 

0C 

00 

33 

@C 

0C 

0C 

5 06 C 

22D8 

46 

00 

99 

89 

03 

CC 

ôô 

46 

ü 2E3 

2 i 00 

SC 

00 

00 

0C 

13 C 

0G 

0 C 

08 

S03C 

22 ES 

33 

03 

46 

00 

CC 

CC 

03 

CC 

:: 2Ê3 

2108 

00 

0C 

0C 

0C 

0C 

38 

00 

0C 

s 044 

22ES 

CC 

46 

cc 

. 46 

CC 

88 

CC 

66 

3 4AA 

21 10 

0C 

0C 

■0C 

08 

00 

0C 

0C 

0C 

:: 350 

22F0 

83 

CC 

89 

46 

88 

46 

66 

88 

s 35E 

2118 

0C 

08 

00 

04 

0C 

FF 

0C 

00 

3 12F 

'22F 8 

CC 

66 

03 

99 

89 

03 

33 

CC 

3 329 

2120 

00 

04 

0C 

FF 

0C 

00 

00 

04 

s 11F 

2330 

cc 

80 

44 

CC 

□3 

CC 

89 

46 

:: 37 A 

2128 

0 c 

0C 

38 

00 

00 

34 

0C 

0C 

s 33C 

2308 

89 

CC 

CC 

00 

44 

CC 

03 

CC 

s 430 

2130 

4 S 

ce 

m 

04 

0C 

0 C 

5 D 

FF 

:: 280 

2310 

89 

46 

cc 

46 

CC 

00 

00 

CC 

3 379 

2138 

00 

00 

04 

0C 

5D 

FF 

00 

FF 

; 26 B 

2318 

03 

CC 

89 

46 

CC 

46 

66 

00 

; 316 

2140 

AE 

0C 

5 D 

FF 

30 

FF 

AE 

0C 

3 3CF 

2320 

00 

CC 

03 

46 

89 

46 

66 

CC 

s 316 

2148 

C3 

D 7 

00 

FF 

AE 

C3 

C3 

D7 

! 5 A4 

2323 

88 

00 

00 

CC 

03 

46 

03 

46 

: 1E6 

2150 

00 

EB 

C3 

C3 

C3 

D7 

00 

EB 

3 4F 6 

2330 

6 6 

CC 

88 

00 

00 

44 

89 

46 

:: 2 C D 

2158 

C3 

C3 

C3 

82 

00 

EB 

C3 

C3 

: 5 3 C 

2338 

03 

46 

CC 

CC 

00 

00 

00 

44 

ü 225 

2160 

86 

00 

30 

EB 

C3 

0C 

0C 

00 

s 24 C 

2343 

89 

46 

03 

CC 

CC 

CC 

00 

00 

s 336 

2168 

00 

04 

0C 

00 

00 

00 

00 

04 

3 014 

2348 

00 

00 

89 

46 

03 

CC 

CC 

88 

s 2F2 

2170 

SC 

0C 

08 

00 

00 

04 

0C 

0C 

s 03 C 

2350 

00 

00 

00 

00 

03 

46 

03 

CC 

! 1 1 8 

2178 

0 C 

08 

00 

55 

AE 

0C 

0C 

08 

s 137 

2358 

88 

00 

00 

00 

00 

00 

03 

03 

; 08E 

2180 

00 

55 

AE 

0C 

0C 

08 

.00 

55 

3 178 

2360 

83 

82 

00 

00 

00 

00 

00 

00 

s 005 

2188 

AE 

0C 

5D 

AA 

00 

04 

0C 

30 

s 231 

2368 

03 

03 

03 

02 

00 

00 

00 

00 

s 00B 

2190 

5D 

AA 

00 

04 

18 

75 

75 

AA 

s 2B7 

2370 

80 

00 

01 

83 

03 

02 

00 

00 

:: 009 

2198 

00 

0C 

18 

FF 

24 

00 

00 

0C 

s 153 

2378 

00 

00 

00 

00 

01 

03 

03 

02 

; 009 

21A0 

18 

75 

24 

00 

00 

0C 

18 

75 

3 14 A 

2330 

0S 

80 

00 

08 

00 

00 

01 

03 

3 004 

21 AS 

24 

03 

00 

0C 

0C 

30 

0C 

00 

s 078 

2338 

03 

02 

00 

00 

00 

00 

30 

00 

3 005 

21B0 

00 

0C 

0C 

0C 

0C 

00 

03 

0C 

3 03 C 

2380 

01 

33 

03 

02 

33 

00 

00 

■00 

s 009 

2 IBS 

0C 

0C 

0C 
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IB 

IB 

ED 

53 

0 B 

41 

3E 

20 

2 22 ® 

4D20 

08 

19 

DC 

31 

4D 

EB 

El 

3 A 

s 381 
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32 

2 E 

41 

21 

2 E 

41 

CD 

E 8 

2 2E6 
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El 

40 

3D 

32 

El 

40 

28 

E0 

s 3B1 

4550 

4E 

3 A 

44 

41 

3D 

32 

44 

41 

2 281 

4D30 

C9 

11 

50 

C0 

19 

C9 

1 1 

B 8 

s 38 D 

4E58 

C3 

87 

4 A 

21 

00 

€8 

06 

CS 

2 343 

4D3S 

3 F 

19 

C9 

01 

B 8 

3F 

09 

C9 

s 2E3 

4560 

C5 

36 

FF 

CD 

BA 

4 B 

01 

D 0 

2 49D 

4D40 

01 

01 

00 

0 B 

78 

El 

28 

F B 

s 25 1 

4568 

07 

CD 

43 

4D 

-36 

C0 

CD 

BA 

2 3E1 

4D4S 

C9 

3E 

IB 

CD 

1 E 

BB 

28 

F 9 

3 35ES 

4570 

4 B 

11 

00 

08 

19 

DC 

31 

4D 

2 1D7 

4D50 

3E 

1 E 

CD 

1E 

B B 

20 

F9 

C9 

3 3E1 

4B7S 

Cl 

10 

E5 

21 

A 9 

42 

11 

AA 

; 37 D 
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00 

41 

35 

C0 

3A 

01 

41 

; 1 D3 

4BS0 

Cl 

CD 

ES 

4E 

21 

E 8 

C 2 

22 

2 4A9 

4D60 

17 

21 

96 

41 

22 

F B 

40 

3E 

3 30 A 

4 BS 8 

09 

41 

21 

CE 

42 

22 

07 

A 1 

: 1E5 

4D68 

0 A 

32 

E 6 

40 

DD 
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F B 

40 

s 3A4 

4 B 90 

3E 

0 A 

32 

E 6 

40 

ED 

5 B 

09 

2 2 F 1 

4D70 

DD 

7E 

88 

DD 

B 6 

81 

28 

72 

3 389 
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41 

2 A 

07 

41 

CD 

E 8 

4E 

2 A 

: 2 E 0 

4D78 

DD 

4E 

84 

DD 

56 

05 

15 

CD 

s 349 
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09 
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11 

50 

00 

19 

22 

09 

2.0 EF' 
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DD 
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DD 
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DC 

es 
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47 

84 

CD 
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4D 

DD 

76 

05 
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E5 

ED 

50 

El 

C9 

C9 

21 

74 
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4DA0 

FE 

02 

38 

0 B 

FE 

80 

38 

07 

s 2F 8 
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21 

41 

3E 

02 

ED 

53 

U Xl. alll A. 

4DA8 
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04 

DD 

77 

05 
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3 B 

DD 
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1 A 

41 

32 

IC 

41 

2 2! 

17 
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36 

85 

01 

DD 
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02 

DD 

66 
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FE 

02 

28 

11 

FE 
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03 

11 

00 

20 

19 

DC 

31 

4D 
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4DC0 

DD 

75 

02 

DD 

74 

03 

DD 

7E 

5 403' 

4DC8 

07 

D6 

04 

DD 

77 

07 

FE 

C8 

: 402 

4DD0 

38 

0C 

2A 

FE 

40 

06 

0S 

36 

: 1ED 

4 DD 8 

00 

23 

10 

FE 

18 

0C 

47 

DD 

: 276 

4DE0 

7E 

06 

D6 

04 

ES 

38 

03 

DD 

s 32E 

4DE8 

77 

06 

2 A 

FE 

40 

11 

08 

00 

s 1 FE 

4DF0 

19 


FE 

40 

21 

E6 

40 

35 

« 2F2 

4 DF 8 

C2 

6C 

4D 

C9 

21 

9D 

41 

22 

: 365 

4E00 

07 

41 

21 

Ë6 

41 
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09 

41 
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4E08 

3E 

0A 

32 

E6 

40 

2A 

07 

41 

: 212 

4E10 

7E 

FE 

C? 

C8 

11 

0S 

00 

19 

ï 33 D 

4E1 8 


07 

41 

21 

E6 

40 

35 

20 
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4E20 

EC 

21 

96 

41 

22 

07 

41 

’ 1 

5.26F 

4E28 

E6 

41 


09 

41 

3E 
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32 
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E6 

40 
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07 

41 

7E 

FE 

00 

s 314 

4E38 

28 

15 

11 

08 

00 

19 

2 2 

07 

: 098 

4E40 

41 

2A 

09 

41 

23 

1e xi 

09 

41 

5 1 4 H- 

4E48 

21 

E6 

40 

35 

20 

E4 

C9 

EE 
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4E50 

ED 

5 F 

FE 

8E 

30 

55 

CD 
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45 A 
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4E 

FE 

01 

CC 
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FE 

02 
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FE 
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CC 
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EE 
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EF 
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C3 

4E 

FE 

s 4EC 

4E7S 

07 

CC 
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4E 
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08 

CC 

CE 
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4E 

FE 

09 

CC 

CF 

4E 

FE 

0A 
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CC 

D3 

4E 
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23 
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ED 
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41 

77 
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90 
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ED 

D6 

0A 

13 
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C9 

21 

4E 

41 

C9 
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21 
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41 

C9 
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66 

41 

C9 

21 
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21 
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41 
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21 
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C9 

21 

8E 
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C9 

06 
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28 
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CD 
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13 

23 

18 

EC 

D5 

FE 
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El 

18 
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21 

F8 

32 

18 
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C9 

21 

1D 
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41 

11 

60 

C3 

18 

E2 

21 

24 
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41 

11 

4C 

C4 

18 

AA 

3E 

00 
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32 

28 

41 

21 

26 
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7E 

FE 
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4F4S 

30 

20 

16 
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7E 
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FE 

30 
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0F 

2E 

2 B 

7E 

23 

23 

FE 
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30 

20 

06 

3E 

01 

32 

2D 

41 
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C9 

06 

01 

CD 

87 

4 F 

18 

CE 

5 359 
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06 

04 

1 1 

00 

08 
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19 

DC 
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31 

4D 

10 

F9 

C9 

E5 

CD 

7D 
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4 F 78 

4-h 

El 

10 

F9 

C9 

34 

7E 

FE 

: 4E2 

4F 80 

3 A 

D8 

36 

30 

2E 

1S 

F 6 

E5 
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4F88 

CD 

8 F 

4 F 

El 

10 

F 9 

C9 

35 

ï 493 

4F 90 

7E 

FE 
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D0 

36 

39 

2E 

18 

c 32 E 

4 F? 8 

F 6 

00 

00 

00 

00 

00 

00 

00 

5 0F6 


10 ' MASSACRE 
20 MEMORY &1FFF 
30 ENV 1,20,0,20 
40 ENV 2,50,-1,16,127,-1 
50 ENV 3,50,0,50,0 
60 ENV 4,127,-1,7 
70 ENT 2,127,1,50 
80 ENT 3,50,3,1 
90 ENT 4,0,0,0 

100 IF PEEK(&40C0)=195 THEN 120 
110 LOAD"! MASSABIN" 
i20 CALL &40CÔ 
130 END 


10 ' LISTE PARTIE BINAIRE 
20 MEMORY klFFF 
30 LOAD "!MASSABIN" 

40 INK 0,0 
50 INK 1,13 
60 BORDER 0 
70 MODE 2 
30 AD=&2000 
90 F'T=HEXT<AD> 

100 IF LEN (PT) =3 THEN PT="0"+PT 
110 PT=PT+" " 

120 T=0 

130 FOR N=AD TO AD+7 
140 D-PEEK(N) 

150 T=T+0 

160 IF 0<16 THEN PT=PT+"0" 

170 PT=PT+HEXT(O)+" " 

180 NEXT 

190 PT=PT+" : "+LEFTT ( "000" , 3--L.EN Ü-IEXT (T) ) 
)+HEXT(T) 

200 PRINT PT 
210 AD=AD+8 

220 IF AD<&4F9A THEN 90 
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AMSTRAD CRC 


CRAZY LOVE 

Votre mission : parcourir de multiples tableaux afin 
de récupérer des objets. Ceci, en évitant de dangereux 
pics acérés. Bonne chance ! 


r- 

1 ' STEF'HAN SEMI RAT 

2 ' (C) 1987 

10 re=400 

: 20 MODE 1 
, 30 v=100 
40 r-= 1 
50 PEM 1 

60 DIM n1(8,35),n2<8,16),son(96)svi=5:so 
n2=—1 

70 RESTORE 90 

80 FOR i=1 TO 96:READ son(i):NEXT 
90 DATA 89,100,89,113,89,119,89,134,67,7 
5,67,84,67,89,67,100,100,113,100,119,100 
,134,100,150,75,84,75,89,75,100,89,89,10 
i 0,150,100,134,100,119,100,113,89,134,89, 
119,89,113,89,100,75,113,75,100,75,89,75 
I ,84,67,100,67,89,67,84,67,75,67,75,67,84 
,67,89,67,100 

100 DATA 75,84,75,89,75,100,75,113,89,10 
; 0,89,113,89,119,89,134,100,113,100,119,1 
00,134,100,150 

110 DATA 80,30,53,10,60,20,95,10,95,10,9 
5 ,20,100,10,95,10,71,20,80,20,80,20,80,1 
! J 0,60,10,60,10,95,10,95,10,80,10,106,60,7 
1,10,71,10,71,30,89,10,71,10,63,10,60,10 
| ,53,10,60,10,80,10,60,10,45,10,47,20,80, 
10,89,10,95,30,80,10,106,30,80,10,119,60 
, 0, o 

120 WINDOW#1,1,40,18,24:PAPER#1,3:CLS#i: 
WIND0W#2,6,35,1,17:CLS#2 

130 FOR i=2 TO 39:L0CATE i,18:PRINT CHR$ 
(154):LOCATE i,24:PRINT CHR*(154):NEXT:F 
OR i=18 TO 24:LOCATE l,i:PRINT CHR*<149) 

: LOCATE 40.,i SPRINT CHR* ( 149) s NEXT: LOCATE 
1,-18 :PRINT CHR*(150):LOCATE 40, 18: PR INT 
CHR$(156):LOCATE 1,24:PRINT CHR$(147) 
140 LOCATE 40,24:PRINT CHR$(153> 

150 FOR i = 1 TO 17: LOCATE 5, i: PR INT CHR$ ( 
149):LOCATE 36,i:PRINT CHR$(149):NEXT:LO 
CATE 5, IB: F'RINT CHRT ( 155) : LOCATE 36,18:P 
R INT CHR# ( 155) 

160 ENV 1,10,-1,1 :ENV 2,10,1,3 
170 INK 0,0: BORDER 0: INK 1,26:1NK 2,11:1 
NK 3,6:PEN 1 : PAPER 0 
180 SYMBOL AFTER 32 

190 SYMBOL 72,144,144,144,240,240,144,14 
4,144 

200 SYMBOL 206,24,255,24,24,24,255,24,24 
: SYMBOL 207,255,255,255,255,255,119,85,4 
2: SYMBOL 208,255,255,255,255,255,221,226 
, 40 

210 SYMBOL 224,132,73,82,74,51,148,120,2 
4 : SYMBOL 225,132,67,68,40,81,182,56,24 
220 SYMBOL 143,255,219,219,219,219,219,2 
19,255 


230 SYMBOL 251 , ?<X 1 11000 , S<X 111000 , &X 10010 
000,&X1111100,KX1001O,&X111000,&X1111000 
, ?<X11111000 

240 SYMBOL 160,&X10011111,&X1100000,0,&X 
11110011 , S<X 1100, ?<X 1111110 , ?<X 10000001 
250 SYMBOL .83,240,144,128,240,16,16,144, 
240: SYMBOL—99,0,0,240,144,128,128,144,24 

O:SYMBOI_111,0,0,240,144,144,144,144,240 

: SYMBOL-114,0,0,160,208,208,128,128,128: 
SYMBOL 101,0,0,240,144,240,128,128,240 
260 SYMBOL 97,0,0,240,16,16,240,144,232: 
SYMBOL 108,64,64 ,64,64,64,64,64,96:SYMBO 
L 69,240,144,128,128,192,128,144,240 
270 SYMBOL 110,0,0,176,208,144,144,144,1 
44: SYMBOL 103,0,0,240,144,144,240,16,240 
: SYMBOL. 105,0,0,64,0,64,64,64,96 : SYMBOL 
48,60,36,36,36,36,36,36,60: SYMBOL 49,8,2 
4,40,8,8,8,8,8:SYMBOL 50,16,40,40,8,8,16 
,32,56 

280 SYMBOL 51,16,40,40,8,16,8,40,16:SYMB 
OL 52,8,16,32,40,56,8,8,8:SYMBOL 53,56,3 
2,32,32,56,8,8,56:SYMBOL 54,8,16,32,32,4 
8,40,40,16 

290 SYMBOL 55,56,8,8,56,16,16,32,32:SYMB 
OL 56,56,40,40,40,56,40,40,56:SYMBOL 57, 
56,40,40,56,8,8,40,56: SYMBOL. 86,144,144, 
144,144,144,144,96,96:SYMBOL 46,0,0,0,0, 
0,28,20,28: SYMBOL 37,200,136,16,32,32,64 
,136,152 

300 SYMBOL 254,0,0,0,0,0,24,56,0: SYMBOL 

255,0,0,0,O,0,24,56,255 

310 SYMBOL 185,6,6,60,12,18,16,104,8 

320 SYMBOL 186,6,6,24,46,16,24,36,36 

330 SYMBOL 187,255,0,0,&X11101111,0,&X11 

111110,0,^X11101111 

340 SYMBOL 189,153,90,60,24,24,36,36,36 
350 SYMBOL 188 , &X 11000001 , Ï/.X 111110 , &X 110 
000, ?/Xll 001011 , & X100, «< X11111110,& X100010 
,?<X11011101 

360 SYMBOL 190,129,129,255,129,129,129,2 
55,129 

370 SYMBOL 191,96,96,28,48,72,8,22,16:SY 
MBOL 192,96,96,24,116,8,24,36,36 
380 SYMBOL 194,&X11001,&X11010,^X1111110 
0 , Î-.X 11000 , &X 11000 , ?<X 100110 , &X 1000001 , ?<X 1 
0000000 

390 SYMBOL 193 , X10011000 , & X 1011000 , & X 11 
1111 ,&X11000,8tXl 1000 ,&X1100100 ,&X 1000001 
0,1 

400 SYMBOL 195,153,90,60,24,24,36,36,36 
410 SYMBOL 196,255,192,&X11111,192,& X111 
1111,192,255,255 

420 SYMBOL. 197 , &X 10000 , ?<X 10010 , &X 1010010 

,&x loi îoio ,?<x noi i o i o, & x 1101 îoio , ?<x 11011 

010,?/XI1011010 


i 
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430 SYMBOL 198,&X10000010,&X10000010„&X1 
0010010 , &X 10010010 , ?<X 11010010 , &X 1101 ioio 
,&X11011010,&X11O11010 

440 hdf(1)=ÇHR#(185):hd#(3)=CHR#(186)shg 
#(1)=CHR#(191):hg#(3)=CHR#(192);so$(0)=C 
HR# ( 187) s 50$ ( 1 ) =CHR# ( 188) ; ec#=CHR# ( 190) ; 
no#=CHR# (237) :tab1 = 1 :dir=2:e=l: x = 13; y=16 
s DIM pt (36,17) :hh# (1)=CHR#(194) :hh#(3)=C 
HR#(193):ht#=CHR#<195):picg#=ÇHR#(196)se 
n=99; 1 k = 1 

450 IF tabl>6 THEN sq$(O)=CHR#( 207)s so$( 
1>=CHR#(208):ec#=CHR#(206): pi et(0)=CHR#( 
224):pic#(1)=CHR#(225):sg1#=CHR#(144) EL 
SE so# (0) =CHR# (187) : sof ( 1 ) =CHR# ( 188) :ec$ 
=CHR$ < 190 ). : p i c # ( 0 ) =CHR# ( 197 ) ; pi c# < 1 > =CH.R 
# ( 198 ) : sg l.#=CHR# (144): sg2#=CHR# ( 254 ) s sg3 
#=CHR#(255) 

460 IF tabl.>6 THEN sg2#=CHR#(254):sg3#=C 
HR*(255) 

470 remain 1=REMAIN(1);ERASE ptsCLS#2:DIM 
pt. (.36,17 ) s ON tab 1 GOSUB 480,490,500,510 
,520,530,540,550,2250 s GOTO 560 
480 RESTORE 1400sREtURN 
490 RESTORE 1460;RETURM 
500 RESTORE 1510sRETURN 
510 RESTORE 1560:RETURN 
520 RESTORE 1600:RETURN 
530 RESTORE 1660:RETURN 
540 RESTORE 1710:RETURN 
550 RESTORE.1760:RETURN 

PfT|M 2 

570 IF tabl=1 THEN FOR i=l TO 17;L0CATE 
6,iSPRINT sof(INT(RND*2)):pt(6,i)=1:NEXT 
:LOCATE 6,16:PRINT pieg# 

580 IF tabl=3 THEN FOR i=l TO 17:LOCATE 
35,iSPRINT sof(INT(RND*2) ) :pt(35, i ) = 1 s NE 
XT 

590 IF tab1=4 THEN FOR i=l TO 17:LOCATE 
6 , i : PR I NT sot- ( I NT < F:ND*2) ) s pt ( 6 , i ) = 1 s NEXT 
s FOR i =3 TO 12:LOCATE 33,i:PR INT sof(INT 
(RND*2> ) s pt. X33, i ) =1 s NEXT; FOR i =6 TO 9s LO 
GATE 29,i: PRINT sof(INT(RND*2)> s pt(29,i> 
= 1 :NEXT 

600 IF tabl=4 THEN FOR i=ll TO 12;LOCATE 
19 , i s PR I MT sof' ("i NT (RN0*2 ) ) : pt ( 19 , i > = 1 : N 
EXT 

610 IF tab1=5 THEN FOR i=2 TO 4sLOCATE 3 
1,is PRINT sof(INT(RND*2) ):pt(31,i)=1 :NEX 
T: FOR i = 13 TO 14;LOCATE 7,iSPRINT sof(IN 
T (F;ND*2) ) : pt <7,i ) =1 s NEXT 

620 IF tabl=6 THEN FOR i=l TO 17;LOCATE 
35,i: PRINT sof(INT(RND*2)) i pt(35,i)=1 s NE 
XT 

630 IF tab1=7 THEN FOR i=2 TO 10:LOCATE 
23,iSPRINT sof(INT(RND*2))spt(23,i)=1 : NE 
XT: FOR i = 1 TO 17:L0CATE 6,iSPRINT sof(IN 
T(RND*2) ):pt(6,i)=1 s NEXT; FOR i=11 TO 16: 
LOCATE 13,iSPRINT sof(INT(RND*2)):pt(13, 
i)=1 :NEXT 
640 PEN 1 

650 PAPER 3:LOCATE 4,20:PRINT"Salle„.." ; 
tablsLOCATE 4,22:PRINT"Score...";sc:LOCA 
TE 20,20: PR INT "Energie. . . ";en; "7." sLOCATE 
20', 22 s PR I NT " Vi e. . . " ; vi s LOCATE 29,22 s PR I 
NT" Hi...“;re:PAPER 0 
66Ô IF tabl=9 THEN 760 
670 i=0:READ sosPEN 2 

680 i=i+1:READ a,b,c:FOR d=a+5 TO b+5:L0 


CATE d,c: PRINT sof(INT(RND*2)):pt(d,c)=1 
: NEXT: IF iOso THEN 680 
690 i=0:READ ecsPEN 1 

700 i=i+1 s READ a,b,es FOR d=a TO b sLOCATE 
c+5,d: PRINT ecf:pt(c+5,d)=2:NEXT:IF i<> 
ec THEN'700 
710 i =0: READ n.o 

720 i=i+1 sREAD a,b;IF ni(tabl ,a+5)=0 OR 

n2 (tabl ,b)=0 THEN LOCATE a+5,b;PEINT nof 

:pt (a+5,b)=3 

730 IF iOnç THEN 720 

740 i=0:READ pic 

750 i=i + 1 :READ a,b,c:FOR d=a+5 TO b+5:L0 
CATE d,c: PRINT pic#(INT(RND*2)):pt(d,c) = 
4: NEXT; IF iOpic THEN 750 
760 LOCATE x,y:PRINT ht# 

770 RESTORE 2410 

780 EVERY 100,1 GOSUB 1870:EVERY 20,2 GO 
SUB 2430 

790 IF INKEY ( 1 ) =0 OR INKEY (75) =0 THEN dd 

=1:SOUND 1,0,1,15,0,0,15:GOTO 920 

800 'IF INKEY(47)=0 THEN IF r=l THEN rr= 

REMAIN(2):r=-r: GOTO 770 ELSE IF rs-1 THE 

N EVERY 15,2 GOSUB 2390:r=-r: GOTO 770 

810 IF INKEY(8)=0 OR INKEY(74>=0 THEN dd 

=~1: SOUND 1 ,0,1 ,15,0,0,15: GOTO 10.10 

820 IF INKEY(O)=0 OR INKEY(72)=0 THEN dd 

=0:SOUND 1,O,1,15,0,0,15;GOTO 1100 

830 IF INKEY(2)=0 OR INKEY(73)=0 THEN dd 

=0:SOUND 1,O,1,15,0,0,15:GOTO 1170 

840 IF INKEY(9)=0 OR INKEY(76)=0 THEN S 

OUND 1,0,20,1,2,0,5:GOTO 1230 

850 IF pt (x , y+1 ) =0 AND pt(x,y)< >2 AND pt 

( x , y > < >3 THEN LOCATE x, y SPRINT" ":y=y+l: 

LOCATE x , y ; PR I NT ht#:j = l:IF y=17 THEN y= 

1 :tabl=tabl+3:GOTO 450 

860 IF j=l AND pt (x,y+1)=4 THEN GOSUB 19 

10 

870 IF j=l THEN j=0:SOUND 1,O,1,10,0,0,y 
: GOTO 850 

880 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1; 
pt(x,y)=0:n1(tabl,x)=1 :n2(tabl,y)=1 :sc=s 
c+10:PAPER 3:sLOCATE 12,22:PRINT sc: PAPE 
R 0 

890 IF pt (x , y+1 ) =4. THEN GOSUB 1910 
900 ON tabl GOTO 1800,2100,2140,2170,219 
0,1820,2220,2320,2330 
910 GOTO 790 

920 IF p t(x +1,y)=1 THEN GOTO 850 
930 IF pt (x , y ) =0 THEN c;#=" " 

940 IF pt(x,y)=2 THEN cf=ec# 

950 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1 : 
pt(x,y)=0s cf=" ":n1(tabl,x)=1 :n2(tabl,y) 
= 1 s sc=sc +10 : PAPER 3 : PEN 1 : L.OCATE 12,22 s P 
RINT sc:PAPER 0 

960 IF pt(x,y)=4 THEN c#=picf(INT(RND*2) 

, ) 

970 LOCATE x,ysPRINT cf 

980 x=x+lsLOCATE x,y:PRINT hdf (dir+e);e= 
—e . 

990 IF x=36 THEN tabl=tabl+1 :x=6sLOCATE 
36,y: PRINT CHRf(149): GOTO 450 
1000 GOTO 850 

1010 IF p t(x-1,y)=1 THEN GOTO 850 
1020 IF pt(x,y)=0 THEN c#=" " 

1030 IF pt(x,y)=2 THEN cf=ec# 

1040 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1 
:sc=sc+l0: PAPER 3:PEN 1 ;LOCATE 12,22:PRI 
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NT sc : PAPER O: pt (x , y) =0: c$=" "sni(tabl,x 
)=1 ;n2(tabl ,y)=l 

1050 IF pt (x ,y) =4 THEN cf=pici ( INT (RND*2 

> ). 

1060 LOCATE x,ysPRINT cî 

1070 x =x -1 : LOCATE x , y s PR I NT hg$(dir+e):e 
=-e 

1080 IF x=5 THEN tab 1 : =tab 1 — 1 s x =35s LOCATE 
5,y: PRINT CHRT(149):SOTÜ 450 
1090 BOTO 850 

1100 IP pt ,y-l ) < >2 AMD pt <x,y)< >2 THEN 
GOTO 850 

1110 IF pt(x,y—1)=1 THEN GOTO 850 
1120 IF pt(x,y)<>2 AND pt <x,y-1)=2 THEN 
c*=" " ELSE cf=ec$ 

1130 IF y=l THEN tabl=tabl-3;y=16sGOTO 4 
50 

1140 LOCATE x,y: PRINT c$:y=y-l;LOCATE x, 
ysPRINT hh$(dir+e):e=-e 

1150 IF y=l THEN tabl=tabl-3:y=16sGOTO 4 
50 

1160 GOTO 850 

1170 IF pt <x,y+1>< >2 AND pt(x,y)<>2 THEN 
GOTO 850' 

1180 IF pt (x.,y+l ) =1 THEN GOTO 850 
1190 IF' pt (x , y ) < >2 AND pt(x,y+l)=2 THEN 
cT=" " ELSE c$=ec$ 

1200 LOCATE x,ysPRINT c$:y=y+ls LOCATE x, 
ysPRINT hhl (dir+e):e=-e 

1210 IF y=17 THEN tabl=tabl+3sy=ls GOTO 4 
50 

1220 GOTO 850 

1230 'IF INKEY(1)=0 THEN dd=l 
1240 'IF INKEY(8)=0 THEN dd=-l 
1250 FOR. i =0 TO 2 
1260 IF pt(x,y)=0 THEN c$=" " 

1270 IF p t C x,y)=2 THEN c$=ecT 
1280 IF pt(x,y)=3 THEN SOUND 1,200,0,0,1 
: p t ( x , y ) =0 s c $= " " : n 1 (tabl , x ) = 1 s n 2 ( t. ab 1 , y 
)=1 :sc=sc + 10:PAPER 3sLOCATE 12,22:PRINT 
sc: PAPER 0 

1290 IF pt(x,y)=4 THEN ci=pic$ ( INT(RND*2 
) ) 

1300 IF pt(x+dd,y-l)=1 THEN SOUND 1,600, 
0,0,1s GOTO 850 

1310 LOCATE x,ysPRINT c$:x=x+dd:y=y-l 
1320 IF dd=1 THEN hS=hd$(l> ELSE IF dd=0 
THEN h#-=hh*(l) ELSE IF dd=-l THEN h$=hq 
f (1) 

1330 LOCATE x, ys PRINT h* 

1340 IF x =36 THEN tab 1 =tab 1 +1 LOCATE 36 , 

y s PRINT CHR$(149)s x =6 s GOTO 450 

1 350 IF x < =5 THEN '■ t ab 1 =t ab 1 -1 : LOCATE x y 

: PRINT CHR*(149)s x =35 s GOTO 450 

1360 IF y=l THEN tabl=tabl-3sy=16;GOTO 4 

50 

1370 NEXT 

1380 LOCATE x,ys PRINT h* 

1390 GOTO 850 
1400 'TABLEAU N'1 


1410 

DATA 

17 

7 ■*- 7 

30, 

i. 

9 

,11 , 

4, 

17, 

20 

,4, 

1 

3 

,16,5 

7 7 

28, 

5,2, 

9,6 

f-y 

7 

1,: 

22,6 

,11 

,18 

,8. 

O 

7 4- 1 

9 

n 

10,20 

I 4 *-! 

10, 

24,3 

o,n, 

il 

, 14, 

12, 

10, 

10 

,13 

7 

1 

6,20, 

13,9 

,9, 

14,8 

.8, 

15 

rj 

7 

,30, 

17 






1420 

DATA 

5, 

6,9 

7 0 V 

4 

,5 

,12, 

4, 

cr 

7 ■*“ 

1 , 

5, 

1 

0- 

,28, 

13,16,2 

1 











1430 

DATA 

10 

, 9, 

7 

16 

,4 

, 26 

i 4, 

7, 

5, 

15 

7 

7 

, 8,9 

*? i 

7 ■*- * 

,9, 

O “7 
jC - j/ 7 

10, 

18, 

12, 

9,1 

3 






1440 DATA 6, 4,7,9, 9,20,16,11,14,7,18,2 
0,3,22,30,16,24,26,10 
1450 'TABLEAU N'2 

1460 DATA 11, 1,30,1, 1,17,4,18,30,5,18, 
20,6,18,20,7,1,11,8,18,30,8,1,20,11,9,14 
,14,21,27,15,1,30,17 

1470 DATA 8,4,7,11,5,7,21 ,5,-7,28,8,10,8, 

11.13.12.11.14.21.14.16.8.15.17.28 

1480 DATA 11, 1,3, 15,3, 24,4, 30,4, 5,7 
, 3,10, 16,10, 14,13, 26,14, 4,16,.25,7 
1490 DATA 8,8,10,7,22,24,7,26,27,7,29,30 
.,7,6,7,10,9,15,10,17,19,10,9,22,16 
1500 'TABLEAU N'3 

1510 DATA 13,1,30,1, 1,30,3, 1,6,5, 9,11 
,5, 15,20,5, 1,20,8, 25,29,9 ,11,20,12, 
26,29,13, 4,12,15, 1,8,17, 13,21,17, 26, 
29,17 

1520 DATA 7, 3,4,10, 3,8,26, 8,12,21, 9, 

12.28 ,13,17,25, 12,14,10 -,15,17,3 

1530 DATA 9, 1,2, 6,4, 20,4, 13,7, 18,7, 

29,8, 29,12, 8,16, 19,16 
1540 DATA 9, 14,19,2, 27,28,2, 18,19,4,' 

7.12.7, 14,15,7 ,27,28,8,'14,18,11, 5,8, 
14, 26,28,16 

1550 'TABLEAU N'4 

1560 DATA 19, 1,30,1, 7,13,3, 15,28,2, 1 
5,15,3,' 15,15,4, 15,24,5, 25,25,6, 26,26 
,7, 29,30,9, 30,30,11, 13,24,10, 9,13,9, 
3,8,6, 2,2,9, 2,6,15, 2,18,17, 21,24,17 
, 27,30,17, 14,29,13 

1570 DATA 9, 10,12,15, 6,8,2, 9,14,3, 15 
,16,7, 6,8,9, 3,9,14, 19,12,15, 3,12,27, 
16,17,20 

1580 DATA 11, 7,2, 12,2, 21,4, 24,4, 26, 

6, 13,8, 23,9, 17,12, 2,14, 3,16, 15,16 
1590 DATA 7, 9,10,2, 16,19,4, 5,7,5, 29, 

30.8, 16,16,12, 18,22,12, 24,26,12 
1600 'TABLEAU N'5 

1610 DATA 17, 1,30,1 ,1,5,4, 18,30,5, 1, 

11.7, 13,16,8, 5,11,9, 16,21,10, 25,27,1 
0, 1,3,11, 9,12,13, 14,16,13, 2,4,15, 6, 
8,15, 18,27,15 ,29,30,7, 27,30,17, 1,8,1 
7 

1620 DATA 8, 9,11,4, 4,7,6, 7,9,12, 5,9, 
17, 13,15,17, 10,14,22, 5,9,25, 10,15,28 
1630 DATA 10, 1,3, 2,12, 8,14, 11,6, 10, 
12, 15,12, 19,4, 21,9, 25,14, 27,9 
1640 DATA 9, 3,5,6, 7,8,6, 27,30,4, 10,1 

1.8, 18,20,9, 6,6,14, 18,19,14, 23,24,14 
, 26,27,14 

1650 'TABLEAU N'6 

1660 DATA 17, 1,2,1, 4,8,1, 13,21,1, 26, 
30,1, 1,7,5, 8,23,5, 24,28,7, 1,4,7,11, 

17.8, 21,24,10, 26,29,10, 49,21,11, 6,10 
,11, 16,18,12, 1,24,17, 26,30,17 ,19,21, 
11 

1670 DATA 6, 1,3,25, 4,7,14, 7,11,5, 8,1 
0,10, 6,9,29, 12,16,15 

1680 DATA 9, 10,4, 19,4, 23,4, 12,7, 17, 

7, 27,9, 7,10, 28,16, 6,16 

1690 DATA 8, 1,5,4, 8,9,4, 11,13,4, 24,2 
4,6, 26,28,6, 22,23,9, 16,18,11, 25,25,1 
7 

1700 'TABLEAU N'7 

1710 DATA 26, 1,18,1, 2.1,24,1, 27,30,1, 
2,2,4, 7,9,4, 12,14,5 ,24,27,5, 2,5,7, 8 
,10,7, 14,17,8, 20,23,8, 2,6,11, 10,18,1 
1, 28,30,11, 6,6,13, 7,7,14, 5,5,14, 4,4 
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,15, 18,18,13, 20,20,13, 22,22,13, 24,25 
,13, 21,21,15, 1,30,17, 10,16,13, 30,30, 
5 

1720 DATA 6, 11,13,9, 1,7,20, 5,7,23, 5, 
10,28, 7,10,7, 5,7,15 

,1730 DATA 12, 2,2, 8,3, 13,4, 5,6, 9,6, 
17,7, 2,8, 14,10, 2,13, 3,16, 24,12, 18., 
16 

1740 DATA 11, 2,2,6, 7,7,3, 16,16,7, 5,6 
,10, 10,13,10, 15,17,10, 29,30,10, 24,25 
,4, 20,30,16, 4,7,16, 27,27,4 
1750 'TABLEAU N'8 

1760 DATA 17,' 1,30,3, 1,4,6, 11,15,6, 18 
,19,6, 25,30,7,' 5,9,8, 14,23,9, 25,30,11 
, 1,5,11,■10,13,12, 17,21,14, 1,2,14, 1,' 
30,17, 30 ,30,13, 30,30,14, 30,30 ,'15, 30 , 
30,16 

1770 DATA 11, 14,16,3, 6,7,5, 11,16,6, 6 
,11,10., 9,11,13, 5,8,17, 14,16,16, 10,13 
,19, 5,7,20, 14,16,22, 7,11,24 
1780 DATA 12, 2,5, 1,7, 1,12, 7,7, 14,5, 
15,8, 17,13, 19,5, 21,13, 22,8, 25,6, 2 
9,10 

1790 DATA 4, 4,5,16, 7,9,16, 24,29,16, 1 
, 30,2 

1800 IF x = 12 AND y=16 THEN LOCATE x,y:PR 
INT ht*: PEN 2: LOCATE 13,15:F'RINT" " s LOCA 
TE 13,16:PRINT soî(1): FOR i=6 TO 10:FOR 
k = 1 TO 200: NEXT: LOCATE i,16:PRINT CHR* ( 1 
54)+pi cg* :NEXT:PEN 1 :GOSUB 1910 
1810 GOTO 910 

1820 1k=—1k:IF lk=l THEN GOTO 910 
1830 rx=INT (RND*30) +5:ry=INT (RND*15) +2: I. 
F pt(rx,ry)<>l THEN GOTO 910 
1840 IF pt(rx,ry+l>=0 AND ry<>16 THEN LO. 
CATE rx,ry:PRINT" ":pt(rx,ry)=0:ry=ry+l: 
LOCATE rx , ry : PEN 2:F'RINT sol ( INT (RND*2) ) 
EL..SE pt (rx ,ry)=l: F'EN 1 : GOTO 910 
1850 IF rx=x AND ry=y THEN GOSUB 1910 
1860 GOTO 1840 
1870 x x =F'OS(#0) : yy=VF'OS(#0) 

1880 PAPER 3 

1890 en=en-l:LOCATE 30,20:PRINT en; "7. 

IF en=0 THEN en=99:GOSUB 1910 
1900 PAPER 0 : LOCfiTE x x , yy : RETURN 
1910 remain1-RENAIN(1) 

1920 PEN 1 : IF pt(x,y+l)=4 THEN LOCATE x, 
y: F'RINT" " : PR INT CHR* (22) +CHR* ( 1 ) s y=y+l : 
LOCATE x, y: F'RINT ht* ELSE LOCATE x,y:PRI 
NT ht.*: F'RINT CHR* (22)+CHR* ( 1 ) 

1930 PEN 3 

1940 FOR i—1 TO v:NEXT 
1950 LOCATE x, y: F'RINT sgi* 

1960 FOR i=1 TO v;NEXT 
1970 LOCATE x,y:F'RINT sg2* 

1980 FOR i =1 TO v : NEïXT 
1990 LOCATE x,y: F'RINT sg3* 

2000 FOR i=1 TO v:NEXT 

2010 vi=vi-1 : IF vi=0 THEN GOTO 2530 

2020 F'RI NT CHR* ( 22 ) ; CHR* ( 0 ) 

2030 F'EN 1 

2040 PAPER 3:LOCATE 20,22: PRINT"Vie,.."; 
vi: en-99:PAPER 0 

2050 IF tab1=2 AND x=29 AND y=15 THEN y= 
16 

2060 IF tab1=9 AND y=16 THEN y=6:x=6 
2070 IF tabl=1 AND x = 12 AND y=16 THEN x= 
13 


2080 IF tab1=6 AND x=30 AMD y=17 THEN x = 

31 :y=16 

2090 GOTO 450 

2100 IF x< >29 OR y<>14 THEN GOTO 910 
2110 IF x =29 AND y=14 THEN F'EN 2 s LOCATE 
28,15:PRINT" ":LOCATE 29,14: PRINT" ":L 
OCATE 23,16: F'RINT so* (0) +so* (0) +so* < 1 ) : F' 
EN 1: LOCATE 29,15: F'RINT ht*: y=y-KL s F'EN 2: 
FOR i=0 TO 2 

2120 LOCATE 25+i , 15: F'RINT " " +so* (0) +so* 
(0):LOCATE 31-i,15:PRINT so*(1)+so*(O)+" 
" : FOR k = l fo 500: NFXT : NEXT ; GOSLnü 1910 
2130 y=16:GOTO 910 

2140 IF x< >16 OR y<>4 THEN GOTO 910 
2150 F'EN 2: FOR i =0 TO 3:L0CATE 13+i,5:PR 
INT" "+so*(0)+so*(0)+so*(1): FOR k = 1 TO 1 
00: NEXT: NEXT: F'EN 1 
2160 pt ( 16,5)=0:GOTO 850 
2170 IF x< >24 OR y<>9 THEN GOTO 910 
2180 F'EN 2: FOR i =0 TO 4s LOCATE 20+i , 10: P 
RI NT," "+STRING*(9,so* <1)> : FOR k = 1 TO 100 
: NEXT: NEXT: F'EN 1 : pt (24,10) =0: GOTO 850 
2190 IF x< >19 OR y07 THEN GOTO 910 
2200 F'EN 2 : FOR i =2 TO 7 : LOCATE 19 , i -1 : PR 
INT" " : LOCATE 19 , i : F'FTNT so* (0) +so* ( 1 ) : 
FOR k=1 TO 100:NEXT:NEXT:PEN 1 :GOSUB 191 
0 

2210 GOTO 910 

2220 IF x< >10 OR y< >16 THEN GOTO 910 
2230 LOCATE 13,11 :PRINT" ":pt(13,11)=0:P 
EN 2:LOCATE 12,11:PRINT so*(0):pt(12,1 T) 
= 1 :PEN 1 
2240 GOTO 910 

2250 F'EN 2: FOR i =6 TO 35: LOCATE i , 1:F'RIN 
T so*(INT(RND*2)):LOCATE i,17:PRINT so*( 
INT(RND*2)):pt(i,1)=l:pt(i,17)=1:NEXT:FO 
R i=6 TO 25:LOCATE i,7:PPINT so*(0):pt(i 
,7)=1:NEXT:PEN 1 : FOR i=7 TO 12:LOCATE 26 
, i : F'RINT ecl: pt (26, i ) =2: NEXT 
2260 FOR i = 12 TO 16: F'EN 2: LOCATE 6,i:PRI 
NT so* ( I NT (RND*2) )': pt (6 , i ) = 1 : LOCATE 19 , i 
; PRI NT so*(INT(RND*2)) :pt (19,i)=1:NEXT 
2270 pi c* (O) --CHR* ( 197) : pi c* ( 1 ) =CHR* ( 198) 

:sg1*=CHR*(144):sg2*=CHR*(254);sg3*=CHR* 
(255) 

2280 F'EN 1 : FOR i =20 TO 35: LOCATE i,16:PR 
INT pic*(INT <RND*2)):pt(i,16)=4:NEXT 
2290 PEN 3: FOR i=7 TO 18: FOR ,j = 12 TO 16: 
LOCATE i , j : F'F( I MT CHR* ( 160 ) : NEXT : NEXT 
2300 PEN 2:FOR i=27 TO 34:LOCATE i,12:PR 
INT so*(I NT(RND*2)):pt(i,12)=1 :NEXT:PEN 
1: LOCATE 29,11:F'RINT CHR* (251) 

2310 PEN 1: FOR i=8 TO 11 ;LOCATE 32,isPRI 
NT CHR*(149):NEXT:FOR i=0 TO 3:LOCATE 35 
-i ,4+i : F'RINT"/"; NEXT: LOCATE 33,9; F'RINT C 
HR*(143):RETURN 
2320 GOTO 910 

2330 IF sc<>840 AND x>9 AND x<17 AND y=6 
THEN 2390 

2340 IF (x>l AND x<14 AND y>11 AND y<17) 
OR (x=29 AND y=ll) THEN 2350 ELSE GOTO 
910 

2350 IF (x>l AND x<14 AND y>11 AND y<17) 
THEN GOSUB 1910:GOTO 910 
2360 INK O,12,0:LOCATE 16,21 :PRINT"< GAG 
NE > " : LOCATE 29,11: F'F: I MT CHR* ( 248 ) ; CHR* ( 
251):FOR k=l TO 5000;NEXT 
2370 I NK 0,0 : SYMBOL 163,3,227,224,31 19 , 
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38,72,159 : SYMBOL. 164,128,128,96,16,248,2 
4,32,124:SYMBOL 165,128,128,64,64,224,96 
,64,124:SOUND 1,900,200,15 
2380 FOR b~ 1 TO 50:LOCATE 2.9,11 : PR I NT CH 
R$(163);CHR*(164): FOR c = l TO 90:NEXT:S0U 
’ ND 1,500,100,15: LOCATE 30,11: FRI NT CHR$ < 
165):FOR d = l TO 90:NEXT:LOCATE 1,1 : PRINT 
CHR$(7) :NEXT b : FOR e=0 TO 1000:NEXT:GOT 
i 0 2440 

2390 PEN 2:FOR i=9 TO x:LOCATE i,7:PRINT 
' "+STR.ÏNG*(11,so$(O)): FOR k = 1 TO 100: NE 
XT:pt(i ,7)=0:NEXT 
2400 PEN 1 : GOTO 850 

2410 DATA 89,100,89,113,89,119,89,134,67 
,75,67,84,67,89,67,100,100,113,100,119 1 
00,134,100,150,75,84,75,89,75,100,89„89, 
100,150,100,134,100,119,100,113,89,134,8 
9,119,89,113,B9,100,75,113,75,100,75,89, 
75,84,67,100,67,89,67,84,67,75,67,75,67, 
34,67,89,67,100 

2420 DATA 75,84,75,89,75,100,75,113,89,1 
00,89,113,89,119,89,134,100,113,100,119, 
100,134,100,150 

2430 son2=?son2+2: IF son2>=96 THEN son2=:l. 
:RETURN ELSE, ENV 4,4,-1,5:SOUND 2,son(sa 
n2 ) , 20,15,4: SOUND 2 , son ( son2+ !. ) , 20,15,4 : 
RETURN 

2440 MODE 1 : remain1=REMAIM(1): remain2=RE 


MA IN(2) 

2450 CALL ?<BB4E: LOCATE 16,3; PRI NT "BRAVO 
I ! " : PRINT: PRIMT"Cel a -faisait longtemps q 
ue vous ne 1'aviez vue.Vous ne pouv 

iez vous empecher..." 

2460 PRINT:PRINT"Neanmoins,vous avez rea 
lise un score de";sc+en;"pts": IF sc+en>r 
e THEN PRINT"Ce qui est un record !":re= 
sc+en 

2470 RESTORE 110 

2480 READ a,b :a=a*2:b=b*3:SOUND l,a,b,5: 
SOUND 2,a*0.5,b,7:SOUND 4,a*0.25,b,5:FOR 
k = 1 TO b:NEXT;SOUND 7,0,1 : IF a<>0 THEN 
2480 

2490 PR I NT : PR I NT : PR I NT " Vau .1 e:: -vous r e j ou 
er ?" 

2500 d$="":WHILE d$<>"N" AND d$<>"0":d$= 

UPPER*(INKEYT):WEND 

2510 IF d$="N" THEN MODE 1 : END 

2520 ERASE n1,n2,son,pt:sc=0; GOTO 20 

2530 MODE 1 : remain1=REMAIN(1):remain2-RE 

MAIN(2) 

2540 CALL &BE<4E: LOCATE 12 ,'3: PRINT"PAS DE 
CHANCE ! !" 

2550 PRINT:PRINT:PRINT:PRINT"Votre flanc 
ee ne va pas pouvoir passer son examen 

i " 

2560 GOTO 2460 


AMSTRAD CPC 


DOUBLEUR 

Le Basic des CPC ne possède pas d'instructions 
de traitement par la taille des caractères. Écrire en double 
hauteur n'est de ce fait pas évident. 

Ce listing vous montre comment s'y prendre. 


10 '- 

20 ' PROGRAMME D'ECRITURE 

' 30 ' EN 

40 ' DIMENSIONS DOUBLES 

50 ' (EN MODE 2) 

! 60 '- 

; 70 ON BREAK GOSUB 1100 
' 80 MODE 2 * 

! 90 INK 0,0:INK 1,6 
100 PEN O: PAPER 1 
I 110 CLS 

120 SYMBOL AFTER 160 
I 130 DIM TABLE(20) 

: 140 LOCATE 17,1:PRINT "CARACTERES EN DOU 
BLE HAUTEUR ET DOUBLE LARGEUR" 

150 LOCATE 17,2:PRINT "-- 


160 LOCATE 10,5:PRINT "Vous pouvez defin 
ir un alphabet comportant" 

170 LOCATE 8,6:PRINT "jusqu'à 20 caracte 
res. " 

180 LOCATE 10,7:PRINT "Pour cela, il suf 
fit d'entrer les caractères au clavier" 


190 LOCATE 8,8: PRINT "et de presser la t. 
";" pour terminer." 

200 LOCATE 10,9:PRINT"La barre d'espace 
vous permet d'effectuer des corrections" 
210 LOCATE 8,10:PRINT "et oresser la tou 
";" deux fois,"; 

220 PRINT" vous fera quitter le programm 

e. “ 

230 WINDGW #0,1,80,1,12 

240 PEN #1,0:PAPER #1,1 

250 WINDOW #1,1,80,13,25 

260 PEN #0,0:PAPER #0,1 

270 LOCATE 1,11:PRINT STRINGf(80,95) 

280 LOCATE #1,30,1 :PRINTttl,"ENTREE DE L 
ALPHABET" 

290 LOCATE #1,30,2:PRINTttl,"- 

___Il 

300 LOCATE #1,10,4;PRINT #1,"Caractères 
entres:" 

310 LOCATE #1,10,5:PRINT #1,"- 

___Il 

320 CAR=0 
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330 AT=INKEYT 

340 IF AT="" THEN 330 

350 IF ASC(A*)=13 THEN 470 

360 IF ATO" " THEN 420 

370 LOCATE #1,4+2*CAR,7:FRINT #1,AT; 

380 CAR=CAR—1 

390 IF CARCO THEN CAR=0 

400 LOCATE #1,29,4:PRINT #1,CAR 

410 GOTO 330 

420 CAR=CAR+1 

430 IF CAR=21 THEN CAR=20 

440 LOCATE #1,4+2*CAR,7: PRINT #l,ATs 

450 LOCATE ttl , 29,4: F'RINT #1,CAR 

460 TABLE(CAR)=ASC(AT): GOTO 330 

470 CLS #1: LOCATE #1 ,33,1 : F'RINT#! , "01 SUA 

LISATION" 

480 LOCATE #1,33,2:PRINT #1,"- 

__Il 

490 FOR INDEX=1 TO CAR 
500 AT=CHRT(TABLE(INDEX)) 

510 CODE=156+4*INDEX 
520 LOCATE 1,1:PRINT A* 

530 FOR 1=0 TO 7 

540 x $ ( i ) =B I N* < F'EEK (49152+1 *2048 ) , 8 ) 

550 NEXT i 

560 FOR 1=0 TO 7 

570 FOR J=1 TO 4 

580 A ( I ) =A ( I ) +2'- (8~2*J + 1 ) *VAL. (MIDT (Xi ( I ) 

, J , 1 ) > +2-'- (8-2* J ) *VAL (MIDT(XT ( I ) , J , 1 ) ) 

590 NEXT J 

600 FOR K=5 TO 8 

610 B ( I ) =B ( I ) +2"'" ( 16—2*K+1 ) *VAL (MIDT (XT- ( I 
) , K , 1 ) ) +2-"' ( 16—2*K ) *VAL ( MI DT ( XT ( I ) , K -, 1 ) ) 
620 NEXT K 

630 NEXT I 

640 SYMBOL CODE,A(O),A(0),A(1),A(1),A(2) 

, A (2) , A (3) , A (3) 

650 SYMBOL CODE+1,A(4),A(4),A(5),A(5),A( 
6) , A (6) , A (7) , A (7) 

660 SYMBOL CODE+2,B(0),B(O),B(1),B(1),B( 
2) ,B(2) ,B(3) ,B(3) 

670 SYMBOL CODE+3,B(4) ,B(4) ,B(5) ,B(5) ,B ( 
6) ,B(6) ,B(7) ,B (7) 

680 LOCATE #1,0+INDEX*3,6:PRINT #1,CHRT( 
CODE);CHRT(CODE+2) 

690 LOCATE #1,0+INDEX*3,7:PRINT #1,CHRT( 
CODE+1);CHRT(CODE+3) 

700 FOR L=0 TO 7: A (L) =0: B (L) =0: NEXT L. 

710 LOCATE 1,1:PRINT " " 

720 NEXT INDEX 

730 CLS:LOCATE 33,1:PRINT "DEMONSTRATION 

II 

740 LOCATE 33,2:PRINT "-" 

750 LOCATE 10,4: F'RINT "Vous pouvez maint 
enant utiliser votre alphabet de grands" 


760 LOCATE 8,5:PRINT "caractères.“ 

770 LOCATE 10,6: F'RINT "Vous disposez pou 
r cela de la partie supérieure de " 

780 LOCATE 8,7:F'RINT "l'écran organisée 
en deux lignes de 20 caractères." 

DEL 

vous permet d'e-f-facer. " 

800 LOCATE 26,9:F'RINT "(Barre d'espace p 
our continuer) 

810 LOCATE 1,11:PRINT STRINGT(80,95) 

820 RT=INKEYT 

830 IF RT="" THEN 820 

840 IF RTO" " THEN 820 

850 CLS: LOCATE 33,1: F'RINT "DEMONSTRATION 



910 RT=INKEYT 

920 IF RT="" THEN 910 

930 IF ASC(RT)=127 THEN 850 

940 IF RT=" " THEN 1040 

950 Z=ASC(RT): 1 = 1 

960 IF Z=TABLE(20) THEN 1=20:GOTO 1010 
970 WH ILE ZOTABLE(I) 

980 1=1+1 

990 IF 1=21 THEN 1=1:GOTO 910 
1000 WEND 

1010 CQDE=160+4*(I—1) 

1020 LOCATE X,Y-1:F'RINT CHRT (CODE) ; CHRT ( 
CODE+2) 

1030 LOCATE X,Y:F'RINT CHRT (CODE+1 ); CHRT ( 

CODE+3):GOTO 1060 

1040 LOCATE X,Y-1:F'RINT " " 

1050 LOCATE X, Y: F'RINT " 

1060 X=X+4 

1070 IF X>77 AND Y=5 THEN X = 1:Y=9:G0T0 .9 
10 

1080 IF X >77 AND Y=9 THEN X=77:Y=9 
1090 GOTO 910 
1100 MODE 0 

1110 LOCATE 6,6: F'R I NT “AU REVOIR ET .... 

Il 


1120 LOCATE 8,15: F'RINT ".... A BIENTOT ! 

i i 

1130 FOR 1=1 TO 2000:NEXT I 
1140 MODE 2 
1150 END 


860 LOCATE 33,2: F'RINT "- 

870 LOCATE 1,11:PRINT STRINGT(80,95) 
880 X=1:Y=5 

890 LOCATE 1,5:PRINT "— — — — 


900 LOCATE 1,9:F'RINT " 
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AMSTRAD CRC 

HISTO 

Comparer plusieurs valeurs est souvent compliqué. 

Les échelles et leurs différences réelles ne sont pas toujours 
appréciables. Ce listing vous représente graphiquement 
toutes sortes de valeurs en fonction d'échelles que vous 
aurez définies préalablement. De quoi se pencher 
efficacement sur l'interprétation et ne plus perdre de temps 
en longs calculs fastidieux. 


! 10 '- 

II 

| 20 ' HISTOGRAMME 

400 PRINT" 

30 '--- 

410 LOCATE 12,12:PEN 1: PRINT"<1>":LOCATE 

40 MODE 1 

16,12:PEN 1 :PRINT" histo 3 dimensions 

50 DIM D(300) 

II 

dO REM******************************** 

420 LOCATE 12,18:PEN 1 :PRINT"<2>":LOCATE 

70 REM* présentation * 

16,18:F'EN lsF'RINT" histo 2 dimensions" 

30 REM******************************** 

430 m$=INKEY$:IF m$="" THEN GOTO 430 

90 CLS 

440 IF m$="l" OR m*="2" THEN GOTO 450 EL 

100 XC=0 

SE GOTO 430 

110 PRINT CHR$(7) 

450 CLS 

120 INK 0,0 

460 PRINT 

130 PAPER 0 

470 PEN 2 

140 BORDER 0 

480 PRINT" 

150 INK 1,18 

II 

160 INK 2-, 8 

490~PRINT 

170 PEN 2 

500 PRINT" *** CHOIX DES COULEURS 

180 PRINT" 

***" 


510 PRINT" 

190 LOCATE 1,20:PRINT"_. 

II 

«► 

520 PEN 1 

200 PLOT 0,80:DRAW 0,369 

530 LOCATE 12,8:PRINT"<1> jaune" 

210 PLOT 639,80:DRAW 639,369 

540 LOCATE 12,10:PRINT"<2> rouqe" 

220 PEN 1 

550 LOCATE 12,12:PRINT"<3> bleu" 

'230 LOCATE 14,10 :PRINT"_" 

560 LOCATE 12,14: PRINT"<4> magenta pa«=>t 

240 LOCATE 14,12: PRINT"HISTOGRAMME" 

el " 

250 LOCATE 14,13 :PRINT" 

570 LOCATE 12,16:PRINT"<5> vert vif" 

260 LOCATE 1,24:PRINT" 

580 LOCATE 12,18:PRINT"<6> turquoise vi 

": FOR tt=l TO 1000:N 

f " 

EXT 

590 LOCATE 12,20:PRINT"<7> orange" 

270 m$=CHR$(128):b$="tapez une touche po 

600 LOCATE 12,22:PRINT"<8> blanc " 

ur commencer ": FOR f = l TO 31: LOCATE f+5, 

610 LOCATE 12,24:PRINT"<9> bleu vif" 

24:PRINT MID$<b$,f,1);m$:FOR u=l TO 40s N 

620 c$=INKEY$:IF c$="" GOTO 620 

EXT:NEXT:LOCATE f,24 

630 IF c$="l" THEN GOTO 730 

280 FOR p=l TO 500:NEXT 

640 IF c$="2" THEN GOTO 740 

290 h$=INKEY$: IF h*="" GOTO 260 

650 IF c$="3" THEN GOTO 750 

; 300 PRINT CHR$<7> 

660 IF c$="4" THEN GOTO 720 

310 A$=INKEY$:PRINT"":xc=kc+ 1: IF xc=21 

670 IF c*="5" THEN GOTO 760 

THEN GOTO 320 ELSE GOTO 310 

680 IF c*="6" THEN GOTO 770 

320 CLS 

690 IF c$="7" THEN GOTO 780 

330 REM******************************** 

700 IF c*="8" THEN GOTO 790 

340 REM* mode d'emploi * 

710 IF c*="9" THEN GOTO 800 

350 REM******************************** 

720 co=17:GOTO 810 

360 PRINT 

730 co=24:GOTO 810 

370 PEN 2: PRINT" 

740 co=6:GOTO 810 

II 

750 co=1 : GOTO 810 

380 PRINT 

760 co=18:GOTO 810 

; 390 PRINT" *** MENU *** 

770 co=20 : GOTO 810 
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800 co=2 
810 CLS 
820 PRINT 
830 PEN 2 
840 PRINT 


850 F'RINT 
860 PRINT" 
SES ***" 
870 F'RINT" 


880 PEN 1 

890 PRINT"" s PRINT"": PRINT"" 

900 F'RINT 

910 LOCATE 10,24s F'RINT" appuyer sur < 
enter> pour valider.." 

920 LOCATE 4,8: INPUT"titre de votre his 
togramme"; t$ 

930 F'RINT 

940 INF'UT " unité sur l'axe des x"jx$ 
950 F'RINT 

960 INF'UT " unité sur l'axe des y"ny^ 
970 F'RINT 

980 INF'UT" echelle ( donnée la plus gra 
nde)";ev 
990 PRINT 

1000 INF'UT" nombre de données" ;nd 
1010 IF nd >200 GOTO 1000 

1020 IF m$="2" THEN c=280/ev ELSE c=280 
/(1.l*ev) 

1030 REM******************************** 
1040 REM* entres des donnes * 

1050 REM******************************** 
1060 CLS 
1070 F'EN 2 
1080 F'RINT" 


1090 PRINT 

1100 F'RINT" *** ENTREE DES DONNEES DIRE 
OTES ***" 

1110 F'RINT" 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


WINDOW 1,40,25, 
PEN 1 

TO 


8 


nd 

données";i ;" r . 
";d (i ) 

>ev THEN GOTO 1150 
:-ev/4 GOTO 1150 
:0 AND m$=" 1 " •GOTO 


1150 


FOR i=1 
PRINT" 

INF'UT" 

IF d (i ) 

IF d (i )< 

IF d ( i > ■ 

PRINT"" 

NEXT i 
MODE 1 

REM******************************** 
REM* couleurs * 

REM******************************** 
INK 2,co 
PEN 2 

REM******************************** 
REM* abscisse et ordonnée * 

REM******************************** 
CLS 


1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


d(i)< 0 THEN GOSUB 1910 
m$="2" THEN b2=b+8 ELSE 
F'LOT ( b2) +50, ORi 
DRAW( b2+50) , (d (i)*c)+ORi 
FOR -f = l TO z+u 
F'LOT < b2) +50—f , ORi 
DRAW( b2)+50—f , (d(i)*c)+ORi,6 
NEXT 

m$="2" GOTO 1740 
REM******************************* 
REM*' 3 D * 

REM******************************* 
gb=l16:gc=l14 
IF d (i ) <0 THEN d (i ) =-D (i ) 

IF d <i)<0 THEN ori=d(i) 
k~2 

PLOT(b*2)+50,ori 

DRAW(b*2)+50+(bl/k),gb 

DRAW(b*2)+50+(bl/k),(d(i)*c)+gc 

DRAW (b*2) +50, (d (i ) *0+106 

F'LOT (b*2) +50+ (bl/k) , (d (i ) *c)+gc. 

DRAW(8*2)+50-(b 1/2) , (D(I)*C)+gc 

PLOT(b*2)+50—(b 1/2) , (d(I)*c)+gc-l 

DRAW(b*2)+50—b 1+2, (d(i)*c)+106 

F»EM******* ************ ************ 

REM* commentaire graphique * 

REM******************************* 

NEXT 

F'LOT 150,15 
TAG 

PRINT t$s 
vx =—20 

F'LOT 5,105 : TAG : F'R I NT " 0 " ; 

F'LOT vx ,380: TAG: F'RINT ev; 

PLOT 5,400: TAG: F'RINT y*; 

F'LOT 590,90: TAG: F'RINT x$; 
d$=INKEY$ : IF d$~"" GOTO 1850 
TAGOFF 
GOTO 90 

REM******************************* 

REM* negati-f * 

REM******************************* 

F'LOT 50,150 

DRAW 50,10 

RETURN 
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AMSTRAD CRC 


METRO 

Les stations de métro parisiennes portent souvent des noms 
de personnages célèbres. Mais quelles étaient 
leurs professions? Apprenez-le grâce à ce listing. 


lO '-:—■— 

jeu des stations de métro 
SO '- : --- 


PAPER 2: BORDER 24: 


*•: cls 

: DIM (49,2) 

32 INK 2,24:INK 1,2 
ILS sPEN 1 

: DATA ANATOLE FRANCE, ECRIVAIN 
DATA LOUISE MICHEL,INSTITUTRICE 
; DATA PEREIRE,BANQUIER 

DATA MALESHERBES,MAGISTRAT 

GABRIEL PERI,JOURNALISTE 
GARIBALDI,MARIN 
GEORGE V,HOMME D'ETAT 
ROOSEVELT,HOMME D'ETAT 
RAMBUTEAU,PREFET 
GONCOURT,ECRIVAIN 
PARMENTIER,ECONOMISTE 
PARMENTIER,MARIN 
RIQUET,INGENIEUR 
DUGOMMIER,GENERAL 
ROBESPI ERRE ,PGLITICIEN 
SEGUR,ECRIVAIN 
DUROC,GENERAL 
BOI SS I ERE , L.EX I COGRAPHE 
KLEBER,GENERAL 
FELIX FAURE,HOMME D'ETAT 
EDGAR QUINET,ECRIVAIN 
CQRVISART,MEDECIN 
MIRABEAU,ECONOMISTE 
VICTOR HUGO,ECRIVAIN 
LOUIS BLANC,POLITICIEN 
HOCHE,GENERAL 
JEAN JAURES,POLITICIEN 
EXELMANS,MARECHAL 
JASM IN,POETE 
F'ERNETY,RELIGIEUX 
RASPAIL,CHIMISTE 
AUBER,COMPOSITEUR 
MONGE,MATHEMATICIEN 
MABILLON,RELIGIEU X 
MASSENA,MARECHAL 
BREGUET,INGENIEUR 
ETIENNE MARCEL,PREVOT 
BOTZARIS,POLITICIEN 
VOLTAIRE,ECRIVAIN 
LEDRU ROLLIN,AVOCAT 
PICF'US, RELIGIEUX 
LEMOINE,CARDINAL 
CLEMENCEAU,POLITITIEN 
FALGU1ERE,SCULPTEUR 
CAMBRONNE,GENERAL 
EMILE ZOLA,ECRIVAIN 
BOUCICAUT,MARECHAL 
F'ASS Y, ECONOMISTE 


: jo 

DATA 

::o 

DATA 

.20 

DATA 

:30 

DATA 

.40 

DATA 

.50 

DATA 

160 

DATA 

:7o 

DATA 

.20 

DATA 

190 

DATA 

;sx> 

DATA 

210 

DATA 

220 

DATA 

230 

DATA 

140 

DATA 

250 

DATA 

:*o 

DATA 

2"0 

DATA 

ISO 

DATA 

2*0 

DATA 

zoo 

DATA 

:: o 

DATA 

BO 

DATA 

330 

DATA 

340 

DATA 

350 

DATA 

3eO 

DATA 

3~0 

DATA 

350 

DATA 

3=0 

DATA 

[#Û0 

DATA 

-10 

DATA 

=20 

DATA 

-30 

DATA 

-40 

DATA 

-50 

DATA 

-60 

DATA 

4~0 

DATA 

| — 

DATA 

-=0 

DATA 

500 

DATA 

5:0 

DATA 

520 

DATA 

530 

DATA 


540 DATA BIENVENUS,INGENIEUR 

550 FOR X=1 TO 49 

560 READ T$(X,1),T$(X,2) 

570 NEXT 
580 DIM R$<20) 

590 DATA ECRIVAIN,RELIGIEUX,BANQUIER,MAG 
ISTRAT,JOURNALISTE,MARIN,HOMME D'ETAT,PR 
EFET,ECONOMISTE,SCULPTEUR 

600 DATA INGENIEUR,MEDECIN,GENERAL,POETE 
,CHIMISTE,MATHEMATICIEN,AVOCAT,COMPOSITE 
UR,MARECHAL,PREVOT 
610 FOR 1=1 TO 20 
620 READ R$(I> 

630 NEXT 
640 PAPER 2 

650 PRINT"LA CULTURE PAR LE METRO" 

660 

670 LOCATE 5,3:PRINT"SI VOUS EMPRUNTEZ 
QUOTIDIENNEMENT LEMETRO, VOUS CONNAI 
SSEZ SANS DOUTE PARCOEUR LE NOM DE T 
OUTES LES STATIONS DELA LIGNE; CEPENDANT 
,QUE SAVEZ VOUS DESPERSONNAGES CELEBR 
ES" 

6S0 LOCATE 24,8:PRINT"QUI NOMMENT CES" 

685 LOCATE 1,9:PRINT "STATIONS ?" 

690 LOCATE 7,16 

700 F'RINT" VOULEZ VOUS LIRE LE MODE D ' EMP 
LOI ? 0/N" 

710 REP$=INKEY$:IF REP*="" THEN 710 

720 IF REP*="0" OR REP$="o" THEN GOSUB 1 

450 

725 CLS: LOCATE 10,12: F'RINT" TAPEZ UN NOM 
BRE" 

730 LOCATE 10,15: INF'UT" COMPRIS ENTRE 1 
ET 49 ",REP 

740 IF REF-0 OR REP>49 THEN 730 
750 FOR S=1 TO REP:ST=RND 
760 NEXT 

770 FOR F=1 TO 2 
780 FA=RND 
790 NEXT 
800 CLS 
810 REM 

820 PRINT"LA CULTURE PAR LE METRO" 

830 ' 

840 ' 

850 ' 

860 ' 

870 ' 

880 '- RECHERCHE ALEATOIRE DE LA STATI 

ON- 

890 ' 

900 GOSUB 1610 
910 ' 
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920 '- RECH ALEATOIRE REPONSE FAUSSES 

930 ' 

940 GOSUB 1640 

950 IF 1=1 THEN H*=R*(FA):NEXT 

960 IF R*(FA)=T*(ST,2) THEN GOTO 940 

970 IF H*=R*(FA) THEN 940 

980 0=1NT<RND*100)MOD 4 

990 0=0+1 

1000 LOCATE 2,12 

1010 PR INT T *(ST, 1 ) :MA=MA+10 

1020 ON 0 GOTO 1030,1070,1110,1150 

1030 LOCATE 20,9:PRINT "1":LOCATE 25,9:P 

RINT T*(ST,2> 

1040 LOCATE 20,12:PRINT"2":LOCATE 25,12: 
PRINT H* 

1050 LOCATE 20,15:PRINT"3":LOCATE 25,15: 
PRINT R*(FA) 

1060 GOTO 1180 

1070 LOCATE 20,9:PRINT"1":LOCATE 25,9:PR 
INT R*(FA) 

1080 LOCATE 20,12:PRINT"2":LOCATE 25,12: 
PRINT T*(ST,2) 

1090 LOCATE 20,15:PRINT"3":LOCATE 25,15: 

PRINT H* 

1100 GOTO 1180 

1110 LOCATE 20,9:PRINT"1":LOCATE 25,9:PR 
INT R*(FA) 

1120 LOCATE 20,12:PRINT“2":LOCATE 25,12: 
PRINT Ht 

1130 LOCATE 20,15:PRINT"3":LOCATE 25,15: 
PRINT T*(ST,2) 

1140 GOTO 1180 

1150 LOCATE 20,9: PRINT"1":LOCATE 25,9:PR 
INT H* 

1160 LOCATE 20,12:PRINT"2":LOCATE 25,12: 
PRINT T*(ST,2) 

1170 LOCATE 20,15:PRINT"3":LOCATE 25,15: 
PRINT R* (FA) 

1180 LOCATE 5,20: INPUT" VOTRE CHOI X " ; CI-1 : R 
D=RD+1 

1190 ON 0 GOTO 1200,1220,1250,1220 
1200 IF CH=1 THEN GOSUB 1400:GOTO 1340:E 
LSE GOTO 1290 

1220 IF CH=2 THEN GOSUB 1400:GOTO 1340:E 
LSE GOTO 1290 

125p IF CH=3 THEN GOSUB 1400:GOTO 1340:E 
LSE GOTO 1290 
1285 ' 

1290 '- ERREUR - 

1295 ' 

1300 FOR N=15 TO 10 STEP-1:SOUND 1,426,4 
O,N,,,1:NEXT 
1310 ' 


1320 IF RDC2 GOTO 1180 
1330 RD=0 

1340 LOCATE 2,23:PRINT"POUR CONTINUER 0 
N" 

1350 REP*=INKEY*.: IF REP*="" THEN 1350 
1360 IF REP* ="o" OR REP* ="0" THEN GOTC 
800 

1362 CLS 

1365 LOCATE 4,20:PRINT"VOTRE SCORE EST I 
E:";SCORE;"SUR";MA 

1370 LOCATE 15,21:PRINT"AU REVOIR_" 

1390 END 

1400 FOR N=100 TO 200 STEP 10:SOUND 1,N. 
2:NEXT 

1405 FOR N=200 TO 200 STEP-10:SOUND 1,N. 
2:NEXT 

1410 IF RD=1 THEN SC0RE=SC0RE+10 ELSE SC 

0RE=SC0RE+5 

1420 RD=0 

1430 RETURN 

1450 

1460 CLS 

1510 LOCATE 8,5:PRINT"LE PRINCIPE DE CE 
JEU EST TRES SIMPLE." 

1520 LOCATE 8,7: F'RINT"EN EFFET IL S'AI- 
IT DE SELECTIONER LAREPONSE QUI VOUS 
SEMBLE BONNE EN TAPANT 1,2 OU 3" 

1530 LOCATE 8,10:PRINT"VOUS AVEZ DROIT - 
UNE ERREUR; LORSQUE LECHOIX QUE VOUS E 
FFECTUEZ EST FAUX UNETRISTE MELODIE VI 
US LE SIGNALE;" 

1540 PRINT"SI AU CONTRAIRE, VOUS AVEZ GAI¬ 
NE,C'EST UNAIR TRIOMPHANT QUI VOUS AVER' 

IT. " 

1550 LOCATE 8,16:PRINT"CHAQUE BONNE REPC 
NSE RAPPORTE 10 POINTS,5 POINTS SI VOUS 
GAGNEZ AU SECOND COUP." 

1560 LOCATE 8,19: PRINT"LE PRINCIPE DE CE 
JEU PEUT CONSTITUER UNPARFAIT EXERCICE 
DE MEMOIRE,LIBRE A VOUSDQNC, D'EN MOL! 
FIER LE THEME ET D' ENCONSTITUER UN OUT 
IL DE TRAVAIL." 

1570 LOCATE 34,24:PRINT"ENTER" 

1580 REP*=INKEY*:IF REP*="" THEN 1580 
1590 GOSUB 1610:GOSUB 1640 
1600 RETURN 

1610 ST=INT(RND*i00)MOD 49 

1620 ST=ST+1 

1630 RETURN 

1640 FOR 1=1 TO 2 

1650 FA=INT(RND*100)MOD 20 

1660 FA=FA+1 

1670 IF 1=1 THEN H*=R*(FA):NEXT I 
1680 RETURN 
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AMSTRAD CPC 


MUSIC 

La finalité de ce programme n'est pas de faire de vous 
le Mozart de la micro. En revanche, 
il permet de trouver des mélodies simples et agréables 
et de tester le résultat. 


10 '- 

20 ' MUSIC 

30 '- 

-0 DIM d(300) 

50 CLS 
sO BORDER 1 

70 INK 0,0:INK 1,1:PAPER 1: INK 2,9:PEN 

O 

30 CLS 

90 PRINT" CPC MUSIC 

100 WINDOW 8,32,5,21 
110 PAPER 0 
•20 CLS 

130 PR INT : PR INT : PR INT : F'RINT : PR INT : PR INT : 
= RINTtPRINT:PRINT: PRINT:PRINT:PRINT:PRIN 
PRINT: PRINT: PRINT 


-.40 

PRINT 


150 

PRINT" 

CFC MUSIC " 

160 

PRINT 


170 

GOSUB 

1610 

180 

PRINT 

" UN PROGRAMME" 

190 

GOSUB 

1610 

200 

PRINT 


210 

PRINT 

" POUR AMSTRAD CPC 

220 

GOSUB 

1610 

230 

PRINT 


240 

PRINT 

" ECRIT PAR" 

250 

PRINT 


260 

GOSUB 

1610 

270 

PRINT 

" YVES L'HOMER" 

280 

PRINT 


290 

GOSUB 

1610 

300 

PRINT 

" TAPEZ UNE TOUCHE 

210 

PRINT 


320 

GOSUB 

1610 

330 

PRINT 

" POUR COMMENCER " 

340 

PRINT 


350 

GOSUB 

1610 

360 

GOSUB 

1610 

370 

GOTO 140 

380 

MODE 1 


390 

BORDER 

0 

400 

z =2 


410 

ws=Û 


420 

INK 1 

,18:PEN 1 

430 

INK 0 

,2:PAPER 0 

440 

BORDER 1 

450 

' 


460 

'- présentation - 

470 

* 


480 

CLS 


490 

WINDOW 

#1,1,40,8,13 

500 

WINDOW 

#3,1,40,22,25 

510 

CLS# 1 



520 CLS#3 
530 * 

540 '- composition - 

550 ' 

560 PRINT" CPC MUSIC 

570 PAPER 41,1 

580 PEN #1,2 

590 PEN #3,2 

600 PAPER #3,1 

610 PRINT #3," tapez enter pour valid 
er 

620 REM PRINT #1," 


630 LOCATE 5,10:INPUT #1," entrez le nom 
bre de notes que vous voulez entendr 

e jouer par l'amstrad puis tapez ent 

er (nombre maximum 44) 

" ; nn 

640 PRINT #1,"" 

650 PRINT #1," tapez <1> puis <enter> po 
ur avoir un do, <2>. . re,<3>. . mi , <4>. . + a ,< 
5>. .sol ,<6>. . 1 a , <7>. .si , <8>. . do, <9>. . re , 
< 10>. .mi ,<11 >. . -fa" 

660 FOR i=l TO nn 


670 

I NF’UT #1 , 

"note " , d (i) 


680 

IF 

d(I)>11 

OR d ( I)< 1 

THEN 

GOTO 670 

690 

IF 

d (i )=1 

THEN PRINT 

#1, 

" do" 

700 

IF 

d (i )=2 

THEN PRIN! 

#1, 

" re" 

710 

IF 

d(i)=3 

THEN PRINT 

#1, 

" mi " 

720 

IF 

d (i ) =4 

THEN PRINT 

#1 , 

" +a" 

730 

IF 

d(i> =5 

THEN PRINT 

#1 , " 

sol " 

740 

IF 

d(i>=6 

THEN PRINT 

#1 , " 

la" 

750 

IF 

d (i )=7 

THEN PRINT 

#1 , " 

si " 

760 

IF 

d (i )=B 

THEN PRINT 

#1 , " 

do+" 

770 

IF 

d ( I ) =9 

THEN PRINT 

#1 , " 

re+" 

780 

IF 

O 

H 

II 

•rl 

T3 

THEN PRINT 

#1 , 

" mi +" 

790 

IF 

d (i >=11 

THEN PRINT 

#1 , 

" + a+" 


800 NEXT 

810 GOSUB 1550 

820 CLS 


830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


v=7 
GOSUB 
FOR i = 
IF d (i 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


d ( i 
d ( i 
d (i 
d ( i 
d ( i 
d ( i 
d (i 
d ( i 
d ( i 


1460 
1 TO 
>=1 
) =2 
) =3 
) =4 
) =5 
) =6 
) —7 
) =9 
)=S 
>=10 


nn 

THEN F=261.626 
THEN +=293.665 
THEN -f =329. 628 
THEN -f =349.228 
THEN +=391.995 
THEN +=440 


THEN 

THEN 

THEN 


+=493. 
F=587, 
F=523. 


883 


251 


THEN F=659.255 
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960 IF d(i)=11 THEN F=698.457 

1330 IF i=27 OR i=36 THEN z=2:IF i=27 OF 

970 GOSUB 1140 

i=36 THEN CLS 

980 NEXT 

1340 IF i=9 OR i=18 THEN GOSUB 1460 

990 F'RINT 

1350 IF i=27 OR i=36 THEN GOSUB 1460 

1000 INF'UT #3," voulez vous rejouer le 

1360 IF i=45 OR i=54 THEN GOSUB 1460 

morceau <1> creer un autre morceau 

1370 IF i=45 OR i=54 THEN CLS 

<2> changer le tempo du ma 

1380 z=z +4 

rceau <3> ",ws 

1390 hh=hh+6 

1010 IF ws<1 OR wf>2 THEN GOTO 1000 

1400 INK 0,13:PAPER 0 

1020 REM PAPER 0:PEN 1 

1410 INK 2,0:PEN 2 

1030 REM BORDER 0 

1420 LOCATE z ,hh : F'RINT CHR*(k) 

1040 IF ws=2 GOTO 60 

1430 RETURN 

1050 IF ws=3 THEN GOSUB 1550 

1440 ' 

1060 IF ws=l OR ws=3 THEN z=2 

1450 '- porte - 

1070 IF ws=l OR ws=3 THEN CLS 

1460 ' 

1080 IF ws=i OR ws=3 GOTO 840 

1470 PLOT 3,228:DRAW 3,355 

1090 END 

1480 PLOT 6,228:DRAW 6,355 

1100 ' 

1490 PLOT 0,228:DRAW 640,228:PLOT 0,260:1 

1110 '- execution du morceau - 

DRAW 640,260:PLOT 0,292:DRAW 640,292 

1120 ' 

1500 PLOT 0,324:DRAW 640,324:PLOT 0,356: 

1130 MODE 1 

DRAW 640,356 

1140 k=236 

1510 RETURN 

1150 SOUND 1 ,-f ,d,v 

1520 ' 

1160 SOUND 1,1,20,1 

1530 '- tempo - 

1170 REM INK 2,13 

1540 ' 

1180 REM INK 3,0 : F'EN 3 

1550 INF'UT #1, "voulez vous un tempo lent 

1190 IF d(i)=1 THEN hh=7 

<1> un tempo moyen] 

1200 IF d(i)=2 THEN hh=6 

<2> un tempo rapide 

1210 IF d(i)=3 THEN hh=5 

< 3 > "; te 

1220 IF d(i)=4 THEN hh=4 

1560 IF te <1 OR te >3 GOTO 1550 

1230 IF d(i)=5 THEN hh=3 

1570 IF te=2 THEN d=25 

1240 IF d(i)=6 THEN hh=2 

1580 IF te=3 THEN d=12 

1250 IF d(i)=7 THEN hh=l 

1590 IF te=l THEN d=50 

1260 IF d (i ) =8 THEN hh=0 

1600 RETURN 

1270 IF d(i)—9 THEN hh=-l 

1610 FOR t=l TO 40: CALL 8<BD19:NEXT 

1280 IF d ( i ) = 10 THEN hh=-2 

1620 GOSUB 1640 

1290 IF d(i)=11 THEN hh=-3 

1630 RETURN 

1300 IF i=9 THEN Z=2 

1640 bb*=INKEYS:IF bb*="“ THEN RETURN El 

1310 IF i=9 THEN CLS 

SE GOTO 380 

1320 IF i = 18 THEN z=2:IF i = 18 THEN CLS 



AMSTRAD CRC 


ROBBOT FREDDY 

Freddy a la vie dure : attaqué par un monstre, 
il doit l'éviter et récupérer des dalles dans un ordre 
bien précis. Plus facile à dire qu'à faire ! 


10 REM Robbot Freddy 
20 REM listing 2 
30 REM 
40 REM 

50 REM p'ar CLAUDE L.E MOULLEC 

60 REM 

70 REM 

80 REM 

90 REM 

100 REM 

110 REM 


120 BORDER 0:M0DE IsINK 0,0: INK 1 ,'26: IN- 
2,6:INK 3,18:CLS 

130 PEN 3:LOCATE 11,8:PRINT STRING*(21, 
*"):LOCATE 11,18:PRINT STRING*(21- 
OR h=9 TO 17 : LOCATE U,h:F'RINT "*":LOCA 
E 31 , h : F'RINT"* " : NEXT 
140 PEN 2:LOCATE 13,10:PRINT"1 
: PRINT" REGLES DE JEU" 

150 PEN 2:LOCATE 13,13:PRINT"2 
: F'RINT" JOYSTICK" 

160 PEN 2: LOCATE 13,16: F'RINT"3 


; :PEN . 
; :PEN . 


: PEN 
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: PRINT" CURSEUR" 

170 A#=INKEY#:IF a#="" THEN SOTQ 170 
180 PRINT CHR#(7):IF A#="1" THEN GOTO 22 

0 

190 IF A#="2" THEN GOTO 310 
200 IF A#="3" THEN GOTO 320 
210 GOTO 170 

220 CLS: MODE 1 :LOCATE 14,1:PRINT"ROBBOT 
-REDDY":PEN 2:LOCATE 14,2:PRINT"======== 

_Il 


230 F'EN 3: LOCATE 1,4:PRINT" ROBBOT FR 
EDDY est un androide cyber netique de; la 
lere génération." 

240 LOCATE 1,6:PRINT" Ce n'est qu'un 

simple employé dans un centre de tri po 
stal.Sa tache consi s te a ramasser diver 
s objets et de les déposer sur le quai 
d'embarquement." 

250 LOCATE 1,10:PRINT" Neanmoins son 
travail n'est pas si simple que cela.D' 
îm-fames Goulhs,suceursd'energie ne cesse 
nt de le harceler." 

260 LOCATE 1,13:PRINT" Aider le a men 
er a bien sa mission a travers huit tab 
1 eaux de plus en plus d i -f -f i ci 1 es. " 

270 LOCATE 1,17: F'EN 2: PRINT" =*=*=*= 

♦=*=*=■*=*=*=*=*=*=*=*= " 


280 PEN 3:LOCATE 1,19:PRINT" NB. La pri 
se et la restitution des ob-jets se -fait 
en se mettant au dessus et en utilisant 
la touche <C0PY> ou <FEU>. " 

290 LOCATE 1,22:PRINT" La touche < 

ESF'ACE> permet de pas ser au tableau sui 
vant." 

300 PEN 1: LOCATE 33,25: F'R I NT "< ENTER >" : CA 
cL 2/.BB18: GOTO 120 

310 kh#=CHR#(ll):kb#=CHR#(10):kd#=CHR#(9 
:kg#=CHR$(8):kf#=CHR#(88): GOTO 330 
320 kh#=CHR# (240) : kb#=CHR# (241 ) : kd#=CHR# 


rede-f i ni t i on 


24: 

3):kg#=CHR# 

30 



330 

REM — 


340 

REM 


350 

REM 


360 

REM 


370 

REM — 


380 

SYMBOL 

AFT! 

390 

SYMBOL 

201 

,0 



400 

SYMBOL 

202 

410 

SYMBOL 

203 

420 

SYMBOL 

204 

0 



430 

SYMBOL 

205 

, o 



440 

SYMBOL 

206 

450 

SYMBOL 

207 

460 

SYMBOL 

208 

470 

SYMBOL 

209 

480 

SYMBOL 

210 

33, 

128 


490 

SYMBOL 

211 

500 

SYMBOL 

212 

510 

SYMBOL 

213 

520 

SYMBOL 

214 

530 

SYMBOL 

215 

?2, 

192 


340 

SYMBOL 

216 


i, 170,0,138,85,128,85,17 
205,0,255,193,191,160,160,127 


. 0 


,0 


:24,1 


,0,0,30,30,24,O,: 
,0,0,0,51,0,59,0. 


!4,6 

0 


216,0,99,119,53,118,231,71,1 


550 SYMBOL 217,248,252,238,223,255,125,2 
50,244 

560 SYMBOL 218,0,0,0,10,9,0,0,0 
570 SYMBOL 219,0,0,16,32,0,130,4,8 
580 SYMBOL 220,0,255,0,255,0,255,0,Os+1 a 
#=CHR#(220) 

590 tim1#=CHR#(201)+CHR#(202) 

600 tim2#=CHR#(202)+CHR#(201) 

610 cai1#=CHR#(205)+CHR#(206) 

620 cai2#=CHR# (207) +CHR# (208) 

630 mur1#=CHR# (203) : mur2#=CHR# (204) 

640 mul#=CHR#(203)+CHR#(203) 

650 mu2#=CHR#(204)+CHR#(204) 

660 monl#=CHR#(209X+CHR#(210) 

670 mon2#=CHR#<2U)+CHR#(212) 

680 1 et 1 #=CHR# ( 143 ) +CHR# ( 143 ) 

690 1 et 2#=CHR# (213) +CHR# (214) 

700 pis#=CHR#(215)+CHR#(154> 

710 pit#=CHR#(32)+CHR#(215> 

720 sac.l #=CHR# (216) +CHR# (217) 

730 sac2#=CHR#(218)+CHR#(219) 

740 tr#=CHR# (22) +CHR# ( 1 ) 

750 nr#=CHR#(22)+CHR#(0) 

760 rien#=CHR#(32)+CHR#(32) 

770 REM - 

780 REM 

790 REM variables de base 

800 REM 

810 REM-'- 

820 GOSUB 3650 

830 MODE 1 : BORDER 0: INK 0,0:1NK 1,26: INK 
2,18:INK 3,6:WINDQW #1,3,38,2,20 
840 DIM a(20,20):sc=0:ta=0:rec=0:vie=0:p 
h#="NIVEAU ":sp=l:tt=0 

850 ENT 1,15,-1,3:ENV 1,15,-1,3:ENT 2,5, 
1,1,10,-1,1,10,1,1,10,-1,1,15,1,1:ENV 2, 
5,3,1,1,0,1S,6,-3,4:ENV 3,15,-1,10:ENT 3 
,150,10,1 

860 REM - 

870 REM 

880 REM dessin de base 

890 REM 

900 REM - 

910 PRINT tr#:PEN I :LOCATE 2,1:PRINT STR 
ING#(38,mur 1$):PEN 3:L0CATE 2,1:PRINT ST 
RING#(38,mur2#) 

920 PEN 1:LOCATE 7,21:PRINT STRING#(32,m 
ur 1#> : PEN 3: LOCATE 7,21: PRINT STR ING#'(32 
,mur2#) 

930 PEN 1 : FOR h=l TO 21:LOCATE 2,h:PRINT 
mûri#: LOCATE 39,h:F'RINT murl#:NEXT 
940 PEN 3: FOR h=l TO 21:L0CATE 2,h:F'RINT 
mur2#: LOCATE 39, h: PR INT mur 2#: NEXT : F'RIN 
T nr$ 

950 PLOT 174,24,2:DRAW 174,56:DRAW 626,5 
6:DRAW 626,24:DRAW 174,24 

960 LOCATE 12,23:PRINT nr#;"SCO: RE 

C: TAB:" 

970 GOSUB 1090:GOTO 1290 

980 REM-monstre 1- 

990 F'EN 2 : LOCATE <mx*2)-1 ,my: PRINT tr#;m 
onl#: PEN 3: LOCATE ( m:-: *2 ) — 1 , my : F'R I NT mon2 
#;nr#:RETURN 

1000 REM-monstre 2- J - 

1010 F'EN 1: LOCATE <n*2) — 1 , ny : F'R INT tr#; 
mon 1#: PEN 2: LOCATE (n;;*2) -1 ,ny: F'RIIMT mon 
2#;nr#:RETURN 

1020 REM- temps - 
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-f 1 a= 1 : ob 1 i=sac 1 $ s a 


1030 PRINT tr$:PEN 3:L0CATE 3,25:PRINT " 
TIME": FOR h=8 TO 38 STEP 2:PEN 2:LGCATE 
h,25SPRINT tim1$:PEN 1 s LOCATE h,25:PRINT 
tim2$: NEXT:RETURN 

1040 REM - 

1050 REM 

1060 REM placement des Sprites 

1070 REM 

1080 REM--- 

1090 à FI X , 4 ,16 

1100 ÔDEF ,10, S/E690,2/9000: ôSPRITE , 10 

1110 à DEF ,11, 8/E690,2/9082 

1120 6DEF ,12', 2/E690+5,2/9000 : ôSF'R I TE , 12 

1130 ÔDEF ,13,2/E690+5,2/9082 

1140 6DEF, 14,2/E690+10,2/9000: ôSPRITE ,14 

1150 ÔDEF ,15,2/E690+10,2/9082 

1160 ô DEF ,16,2/E690+15,2/9000 : ôSF'R I TE , 16 

1170 ô DEF, 17,2/E690+15,2/9082 

1180 6DEF , 20,2/E33E , 2/9041 

1190 6DEF ,21,2/E33E , 2/9082 

1200 RETURN 

1210 b DEF, 0,2/0244,2/9082: pla=2/C244 
122Q ÔDEF , 1 ,2/C244,2/9000 

1230 b DEF , 2,2/C244,2/9041 s ÔSPR I TE , 1 : RETURN 

1240 REM - 

1250 REM 

1260 REM tableau +1 

1270 REM 

1280 REM - 

1290 tp=REMAIN(2) 

1300 SOUND 3,638,50,15,1: SOUND 3,638,25 
,15,1:SOUND 3,638,25,15,1 : SOUND 3,568,25 
,15,1:SOUND 3,638,50,15,1 s SOUND 3,638,50 
,15,1:SOUND 3,478,100,15,1 
1310 FOR h=1 TO 22:LQCATE #1,36,19;PRINT 
41,CHR$(32):NEXT 

1320 -f 1 a=0 : ta=ta+l : IF ta=l THEN GOTO 135 
O 

1330 IF ta=9 THEN GOTO 3090 

1340 GOSUB 1180 

1350 ÔSPRITE,20:ter=0 

1360 FOR h= 1 TO 2: ÔSPRITE,21 : FOR t = :L TO 
2: 6DR0ITE,-f + 19: NEXT: ÔSPRITE, 20: FOR t==l T 
0 50:NEXT t:NEXT h 

1370 PEN 2:FOR h=l TO LEN(ph$)sphr$=MID$ 
(ph$,h,1):LOCATE 15+h,12:PRINT phr$ 

1380 FOR g = l TO 2: ÔSPR I TE , 21 : FOR -f = l TO 
2: ôDR0ITE,-f + 19s NEXT: ÔSPRITE,20: FOR t = l T 
0 50: NEXT t. : NEXT g 
1390 NEXT h 

1400 FOR g= 1 TO 2:ÔSPRITE,21 : FOR f = l TO 
2: ÔDROITE , 19+-F : NEXT s ÔSF'RI TE , 20: FOR t = l T 
0 50:NEXT t:NEXT g;LOCATE 22,12:PRINT ta 
1410 FOR t=l TO 2000:NEXT t 
1420 ON ta GOTO 1430,1440,1450,1460,1470 
,1480,1490,1500 

1430 RESTORE 3430:m=l:f1a=Osobl$~cai1$:o 
b2$=cai2*: GOTO 1930 

1440 RESTORE 3470:m=l: i 1a=0:ob1$=1et 1$:o 
b2#=let2$: GOTO 1930 

1450 RESTORE 3510: m==l : -f 1 a=l : ob l$=sac 1* : o 
b2*=sac2*:G0T0 1930 

1460 RESTORE 3430: m=2: f 1 a=0: ob 1$=1 et 1$s o 
b2$=let 2$: GOTO 1930 

1470 RESTORE 3470: m=2: -f 1 a=0: ob 1 $=cai 1#: a 
b2$=cai2$:GOTO 1930 

1480 RESTORE 3510: m=2: -f 1 a=l s ob 1 $ =1 et 1 $: o 
b2$=let2$:GOTO 1930 


1490 RESTORE 3550:m=2: 
b2*=sac2S:GOTO 1930 
1500 RESTORE 3430: m=2: -f 1 a=0: ob l$=r i en$ : o 
b2$=rien$:GOTO 1930 

1510 REM --- 

1520 REM 

1530 REM routine principale 

1540 REM 

1560 a$=INKEY$ 

1570 IF ter = 1 THEN GOTO 2840 
1580 IF -f I a=l THEN GOTO ,2720 
1590 IF aT=k.h$ THEN y=y-l:GOTO 1660 
1600 IF a$=kb* THEN y=y+l: GOTO 1670 
1610 IF a*= kg* THEN x=x-l: GOTO 1680 
1620 IF a*=kd* THEN >:=;•:+ 1 : GOTO 1690 
1630 IF a$=kfT THEN GOTO 2130 
1640 GOSUB 2360 
1650 GOTO 1560 

1660 IF a (x ,y-1 ) =0 THEN GOTO 1730 ELSE Gj 
OSUB 1700:y=y+l: GOTO 1560 
1670 IF a(x,y)=0 THEN GOTO 1770 ELSE GOE 
UB 1700:y=y-l: GOTO 1560 

1680 IF a(x,y)=0 AND a(x,y—1)=0 THEN .60“ 
O 1810 ELSE GOSUB 1700:x=x + l: GOTO 1560 
1690 IF a(x,y)=0 AND a(x,y-l)=0 THEN G0~ 
0 1850 ELSE GOSUB 1700:x=x-l: GOTO 1560 
1700 IF a(x,y)=3 OR a(x,y-1)=3 THEN t er = 
1:RETURN 
1710 RETURN 

1720 REM-vers le haut - 

1730 v ÔDEF , O , pl a ,S/9082: ÔSPRITE, 0 

1740 p 1 a=p 1 a—80: ôDEF, 1 , pl a, &9000: ÔSF’RITE 

1750 WHILE INKEYf-< >" " : WEND: GOTO 1560 

1760 REM-vers le bas- 

1770 ÔDEF,O,pla,S/9082: ôSPRITE,0 

1780 pla=pla+80: ÔDEF,2,pla,S/9041: ÔSPRITE 

,2 

1790 WHILE INKEY'$< >" “ : WEND; GOTO 1560 

1800 REM-vers la gauche- 

1810 ô DEF, O, p 1 a, S/9082 : ô SPRI TE , 0 

1820 pla=pla-4: ÔDEF, 1 , pl a ,8/9000: ôSPRITE. 

1 

1830 WHILE INKEY$< : WEND: GOTO 1560 

1840 REM-vers la droite- 

1850 ÔDEF, O, pla, S/9082: à SPR I TE, 0 

1860 pla=pl.a+4: ÔDEF, 2, pl a, S/9041 : ÔSPRITE. 

o 

1870 WHILE INKEYfO" " : WEND: GOTO 1560 

1880 REM - 

1890 REM 

1900 REM dessin des tableaux 

1910 REM 

1920 REM-I 

1930 CLS #1 :ERASE a:DIM a(20,20):PEN 2:J 
OCATE 37,20:PRINT pi 5$ 

1940 FOR h = l TO 20:a(h,1)=1 : a(h,20)=1 : al 

1,h)=l: a(20,h)=1 :NEXT 

1950 PRINT tr$:READ mu,ob 

1960 FOR h=l TO mu:READ lg,ha 

1970 PEN 1:LOCATE (lg*2)-1,ha:PRINT muld 

:PEN 3:LOCATE (lg*2)-1,ha:PRINT mu2$:aC 

g,ha)=1:NEXT h 

1980 FOR h=l TO ob:READ lg,ha 
1990 PEN 1: LOCATE ( 1 g*2)-1 , ha: PRINT ob:-H 
:PEN 3:LOCATE (1g*2)-1,ha:PRINT ob2*;a 
g,ha)=2:NEXT h 
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2000 x =6:y=9:GOSUB i210:SOSUB 1030;tt=Os 
PEN 2:LOCATE 36,23:PRINT nr*;ta 
2010 a*=INKEY*:IF a*="" THEN BQTO 2010 
2020 IF a*=" “ THEN trich=l:tot=0:GOTO 1 
290 

2030 IF oi=l THEN GOTO 2050 
2040 nx=12:ny=18:GOSUB 1010 
2050 mx=16:my=3:GOSUB 990 
2060 EVERY 200,2 GOSUB 2650 
2070 GOTO 1560 

2080 REM - 

2090 REM 

2100 REM prise de l'objet 

2110 REM 

2120 REM - 

2130 DI:IF tn=l AND y=19 THEN GOTO 2210 
2140 IF a(x,y+1)=2 AND tn=0 THEN GOTO 21 
50 ELSE El:GOTO 1560 

2150 SOUND 2,30,30,2,2:LOCATE (x*2)-l,y+ 
1 :PRINT nr$;" ": a(x,y+1)=0:tn=l: El : GOTO 

1560 

2160 REM - 

2170 REM 

2180 REM déposé de 1'objet 

2190 REM 

2200 REM-- 

2210 tn=0:tot=tot+l:LOCATE (x*2)-1,y+l: P 
EN 1 :PRINT tr*;obi*:LOCATE (x*2)-1,y+1: P 
EN 3:PRINT ob2ï;nr$ 

2220 PEN 2:FOR h=37-TO (x*2)+i STEP -1 
2230 SOUND 6,20,1:LOCATE h,20:PRINT pis* 
: NEXT 

2240 SOUND 1,200,45,15,1,1 
2250 FOR h =(x*2)-1 TO 3 STEP -1 
2260 PEN 1:LOCATE h,20:PRINT tr*;obi*:LO 
2ATE h,20:PEN 3:PRINT ob2*;nr*:PEN 2:L0C 
ATE h+2,20:PRINT pis*:SOUND 6,20,1:NEXT 
2270 LOCATE 3,20:PRINT " " :LOCATE 3,21: 

PEN 1 :PRINT tr*;ob1*:LOCATE 3,21:PEN 3:P 
RINT ob2*;nr* 

2280 PEN 2:FOR h=5 TO 28:SOUND 6,20,1:LO 
2ATE h,20:PRINT pit*:NEXT:LOCATE 3,21:PR 
INT " ":FOR h=29 TO 37:SOUND 6,20,1 sLOC 

ATE h,20:PRINT pit*:NEXT 

2290 sc=sc+10:PEN 2:LOCATE 16,23:PRINT s 
c: IF tot = 10 THEN tot=0:El : GOTO 1290 


2300 El:GOTO 1560 

2310 REM - 

2320 REM 

2330 REM déplacement monstre 1 

2340 REM 

2350 REM - 

2360 DI :mpas=mpas+l: IF mpas=20 THEN mpas 
=0:GOTO 2380 
2370 El :RETURN 

2380 IF m=l THEN GOTO 2390 ELSE cv=INT(R 


\ID*2)+1:0N cv GOTO 2390,2520 

2390 LOCATE (mx*2>-1,my:PRINT nr*;" ":a 


. mx,my)=0 


2400 

IF 

X >m>: 

: THEN 

mx=mx + l: IF 

THEN 

mx 

:=mx- 

-1 


2410 

IF 

x < m>! 

: THEN 

mx=mx — 1 : IF 


THEN mx=mx+l 

2420 IF y>my THEN my=my+l:IF 
THEN my=my-l 

2430 IF y<my THEN my=my-l:IF 
THEN my=my+l 

2440 GOSUB 990:a(mx,my)=3:IF 


a(mx,my)< >0 
a (mx , my ) < >0 
a ( mx , my ) < >0 
a (mx , my ) < >0 
mx=x AND my 


=y THEN ter=l 

2450 IF mx=x AND my=y-l THEN ter=i 
2460 El:RETURN 

2470 REM-- 

2480 REM 

2490 REM déplacement monstre 2 

2500 REM 

2510 REM - 

2520 LOCATE (nx*2)-1,ny:PRINT nr*;" ":a 

(nx,ny)=0 

2530 IF x >nx THEN nx=nx + l:IF a(nx,ny)<>0 
THEN nx=nx—1 

2540 IF x<nx THEN nx=nx-l:IF a(nx,ny)<>0 
THEN nx=nx+l 

2550 IF y>ny THEN ny=ny+l:IF a(px,ny)<>0 
THEN ny=ny-l 

2560 IF y<ny THEN ny=ny~i;IF a(nx,ny)<>0 
THEN ny=ny+l 

2570 GOSUB 1010:a(nx,ny)=3:IF nx=x AND n 
y=y THEN ter=l 

2580 IF nx=x AND ny=y-l THEN ter=l 
2590 El:RETURN 

2600 REM - 

2610 REM 

2620 REM temps -1 

2630 REM 

2640 REM - 

2650 DI:tt=tt+l:LOCATE 40-tt,25:PRINT nr 
*;" ": IF tt=33 THEN ter=l 
2660 El:RETURN 

2670 REM - 

2680 REM 

2690 REM 1aser 

2700 REM 

2710 REM--- 

2720 IF mx = 12 AND f1=0 THEN GOTO 2730 EL 
SE IF mx = 10 AND fl 1=0 THEN GOTO 2760 ELS 
E GOTO 1590 

2730 SOUND 7,50,50,15,3,3:LOCATE 3,19;PE 
N 0:PRINT nr*;STRING*(18,f1 a*):6DEF,1,pl 
a, &9000: ÙSPRITE, 1: LOCATE 23,19:PEN 3:F'RI 
NT tr*;STRING*(14,f1 a*>:f1 = 1:411=0 
2740 FOR h=2 TO 10:a(h,19)=0:NEXT:FOR h= 
12 TO 18:a(h,19)=3:NEXT 

2750 IF a(x,y)=3 THEN GOTO 2340 ELSE GOT 
0 1590 

2760 SOUND 7,50,50,15,3,3:LOCATE 3,19:PE 
N 3:PRINT tr*;STRING*(18,f1 a*):LOCATE 23 
,19:PEN 0:PRINT nr*;STRING*(14,f1 a*):6DE 
F,2,pla,&9041:6SPRITE,2:f1=0:f11=1 
2770 FOR h=2 TO 10:a(h,19)=3;NEXT:FOR h= 
12 TO 18:a(h,19)=0:NEXT 

2780 IF a(x,y)=3 THEN GOTO 2840 ELSE GOT 
0 1590 

2790 REM - 

2800 REM 

2810 REM vie -1 

2820 REM 

2830 REM - 

2840 tp=REMAIN(2): FOR t = l TO 500:NEXT:6D 

EF , 0, pl a , ?<9082: èSPRITE,0 

2850 SOUND 9,100,40,13,2,2 

2860 BORDER 26:FOR t=l TO 200:NEXT t:BOR 

DER O:vie=vie+1: IF vie=5 THEN GOTO 3000 

2870 IF f1a=0 THEN GOTO 2900 

2880 LOCATE 3,19:PEN O:PRINT nr*;STRING* 

(18,fla*):LOCATE 23,19;PRINT STRING*<14, 

fia*) 



























2890 FOR h-2 TO 10s a(h,19)—Os NEXT: FOR h = 

12 TO 18s a(h,19)=0:NEXT 

2900 6SPRITE, 0: ÙSF'R ITE , 19— ( vi e*2) s 

2910 IF m=l THEN GOTO 2930 

2920 LOCATE (n>:*2)-1 , nys PRINT nrl;'' 

2930 LOCATE (mx*2)-1 ,mys PRINT nrT; " 

2940 ter=0: a(mx,my)=0:a(nx,ny)=0:GOTO 20 

00 

2950 REM - 

2960 REM 

2970 REM perdu 

2980 REM 

2990 REM - 

3000 CL.S #1 s ERASE as tp=REMAIN (2) 

3010 RESTORE 3590 s FOR h=l TO 1Os READ a,b 
: SOUND 1,425+(a*25),25*b,15:SOUND 1,0,2: 
NEXT 

3020 PEN 2:LOCATE 13,11:PRINT"UNE AUTRE? 
(0/N) 

3030 A$=INKEY$:IF a*="" THEN GOTO 3030 
3040 a*=UPPERÆ(a$>: IF a$="0" THEN GOTO 3 
070 

3050 IF a$="N" THEN END 
3060 GOTO 3030 

3070 IF rec<sc THEN rec=sc:PEN 2:LOCATE 
26,23:PRINT nr$;" ":LOCATE 26,23:PRIN 

T rec:sc=0:LOCATE 16,23:PRINT " 

3080 DIM a(20,20):sc=0:ta=0:tn=0:vie=0:s 
p = l:tt=0:ter=0:tot=0:GOSUB 1090s GOTO 129 
0 

3090 REM - 

3100 REM 

3110 REM -fin de jeu 

3120 REM 

3140 IF trichOO THEN GOTO 3300 
3150 MODE 0 

3160 INK 0,0: INK 1,24 

3170 BORDER 0:PAPER OsPEN 1 sLOCATE 8,12: 
PRINT "BRAVO" 

3180 FOR t=l TO 3000:NEXT t 
3190 CLS 

3200 MODE 1 : INK 1,13 

3210 LOCATE 3,9sPRINT"VOUS AVEZ TOUTE L' 
ESTIME DE L'AUTEUR" 

3220 LOCATE 5,17:PRINT"Neanmoins je sera 
is étonné de vous" 

3230 LOCATE 5,19:PRINT"voir renouveler c 
et exploit" 

3240 LOCATE 5,21 sPRINT"Voulez vous essay 
er ( 0 ou N ) ?" 

3250 a$=INKEY$:IF a$="" THEN 3250 
3260 PRINT CHR*(7> : a$=UPF'ER* (a*) 

3270 IF a$="0" THEN ter=0:G0T0 830 

3280 IF a$="N" THEN END 

3290 GOTO 3250 

•3300 MODE 0 

3310 INK 0,0: INK 1,24 

3320 BORDER O:PAPER OsPEN 1 :LOCATE 5,12: 
PRINT "TROP FACILE" 

3330 FOR t=l TO 3000:NEXT t 
3340 CLS 

3350 MODE IsINK 1,13 

3360 LOCATE 2,9:PRINT"VOUS N'AVEZ PAS FA 
IT TOUS LES TABLEAUX" 

3370 LOCATE 5,17:PRINT"Neanmoins je sera 
is étonné que vous" 

3380 LOCATE 5,19: F'RINT"ne tentiez pas ce 



t exploit" 

3390 LOCATE 5,21 : PRINT"Voulez vous 
er ( 0 ou N ) ?" 

3400 GOTO 3250 
3410 END 

3420 REM - data tableaux 1,4,8 

3430 DATA 1,10 
3440 DATA 19,19 

3450 DATA 3,13,5,5,7,16,10,5,10,1: 

,13,15,16,6,18,14,19,6 

3460 REM - data tableaux 2,1 

3470 DATA 16,10 

3480 DATA 19,19,2,12,3,12,4,12,5,1: 
,11,12,16,12,17,12,18,12,19,12,11,: 
,11,6,11,8,11,10 

3490 DATA 3,9,4,17,9,5,10,15,12,5. 
14,16,15,10,18,5,18,15 

3500 REM - data tableaux 3,6 - 

3510 DATA 2,10 

3520 DATA 11,19,19,19 

3530 DATA 3,13,5,5,7,16,10,5,10,12 

,13,15,16,6,18,14,19,6 

3540 REM - data tableau 7 

3550 DATA 17,10 

3560 DATA 11,19,19,19,2,12,3,12,4, 
2,6,12,11,12,16,12,17,12,18,12,19, 
2,11,4,11,6,11,8,11,10 
3570 DATA 3,9,4,17,9,5,10,15,15 
14,16,15,10,18,5,18,15 

3580 REM-data musi que- 

3590 DATA 3,4,3,3,3,1,0,3,1,1,1,3, : 
3,4,1,3,4 
3600 REM 
3610 REM 
3620 REM 
3630 REM 
3640 REM 
3650 REM 
3660 MEMORY &7FFF: RESTORE 3680 
3670 FOR h=&8000 TO &8000+399:READ 
KE h ,VAL ( "S("+a$! : NEXT: CALL &8000 
3680 DATA 01,09,80,21,3F,80,C3,DI, 

,80,C3,4C,80,C3,BB,80,C3,CB,80 
3690 DATA C3,E8,80,C3,IC,81,C3,05, 
,42,81,53,50,52,49,54,C5,46,49 
3700 DATA D8,48,41,55,D4,42,41,D3, 

,55,43,48,C5,44,52,4F,49,54,C5 

3710 DATA 44,45,C6,FC,A6,09,80,00, 

,00,00,00,00,00,00,00,FE,01,CO 
3720 DATA DD,7E,00,26,00,6F,ED,6A, 

,11,7C,81,19,E5,DD,E1,DD,66,OU 
3730 DATA DD,6E,01,DD,56,02,DD,5E, 

,10,C5,06,04,E5,C5,1A,77,13,23 
3740 DATA Cl,10,F8,El,D5,CD,85,80,! 
,10,EB,C9,7C,C6,08,67,E6,38,CO 
3750 DATA 7C,D6,40,67,7D,C6,50,6F,) 
,7C,E6,07,CO,7C,D6,08,67,C9,7C 
3760 DATA D6,08,67,E6,38,FE,38,C0 
,40,67,7D,D6,50,6F,DO,7C,25,E6 
3770 DATA 07, CO , 7C , C6,08,67 , C9 , FE-, < 
,DD,7E,02,32,71,80,DD,7E,00,32 
3780 DATA 6E,80,C9,FE,01,CO,DD,7E,< 
,33,81,DD,66,00,DD,6E,01,DD,E5 
3790 DATA CD,9F,80,DD,El,DD,74,00, ! 
,01,C9,FE,01,CO,DD,7E,00,CD,33 
3800 DATA 81,DD,66,00,DD,6E,01,DD, I 
,85,80,DD,El,DD,74,00,DD,75,01 
3810 DATA C9,FE,01,CO,DD,7E,00,CD, : 


RSX FIX , DEF, SPR ITE, HAUT- 
BAS ,DRQITE,GAUCHE 


03, Ci 


40 
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iDD,66,00,DD,6E,01,23,DD,74,00 
Ï820 DATA DD,75,01,C9,FE,01,CO,DD. 
, CD , 33,81 , DD , 66,00 , DD, 6E, 01,2B 
Ï830 DATA DD,74,00,DD,75,01,C9,26. 
,ED.,6A,ED,6A, 11,7C , 81,19 , E5 , DD 
5840 DA PA El, C9 , Ou , FE , 03 , CO , DD, 66 . 
, 6E,02,DD,56,01,DD,5E,00,DD,7E 
5850 DATA 04,E5,D5,26,00,6F,ED,6A, 
, 11,7C,B1,19,ES,DD,El,D1,E1,DD 
5860 DATA 74, 00 , DD , 75 , 01 , DD , 72 , 02 . 
,03,C9,00,00,00,00,00,00,00,00 
5870 DATA C5,00,50,00,F8,B2,40,00. 
, 50,00,00,00,00,00,00,00,00,00 
5880 REM : s : : : : : : : : s :::::: s : : : s s s : ; 
5890 REM : 

5900 REM : data du robot 


7E. 


3910 REM ! : 

3920 REM 

3930 RESTDRE 3940:FOR h~&9000 TO &907C:R 
EAD A#: F'OKE H , VAL ( s NEXT 

3940 DATA 00,00,00,00,01,38,01,08,01,78, 
E1,08,00,FO,FO,00,10,90,90,80,30,FO,FO,C 
O , 70 , FO , FO , Ep , 60 , AO , AO , AO , 50,50,50,60,70 
, FO,FO,Eu ,00,00,Ou , UO ,70, FO, F0,Eu ,E.7,6F, 
6F , 7E , E7,6F , 6F , 7E , 70 , F0 , F0 , E0,00,00,00,0 
0,00,00,00,00,00,11,B8,D1,88,11,F8,F1,88 
3950 DAT A 00,FO,F0,00,10,90,90,80,30,FO, 
F 0,CO,7U,FO,F0,EO,50,5U,50,60,6U,Au,Au,A 
0,70,FO,FO,EO,00,00,00,OU,70,FO,FO,EO,97 
,9F,9F,9E,97,9F,9F,9E,70,FO,FO,EO 
3960 RETURN 


AMSTRAD CRC 


ROUGE ET NOIR 

Jeu de réflexion, ce programme est basé sur des carrés 
de couleur que l'on déplace. Bien entendu, les mouvements 
ne sont pas le fruit du hasard. Pour en savoir plus... 


' *=*=*=*=*=*==*=*=*=*•=*=*=*=*=*=*=* 

• * * 

30 '* LE ROUGE ET LE NOIR * 

40 '* < —=> Ecran couleur ) * 

50 ' *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* 

60 INK O,25:1NK 1,1:1NK 2,0:1NK 3,6 
70 PAPER 0 : F’EN 1 
80 MODE 1 
90 RESTORE 220 

100 '- 

110 '-CHOIX DE LA COMBINAISON- 

120 '- 

130 CLS:LOCATE 1,3:PRINT "ENTREZ UN NOMB 
RE DE 1 A 7 :" 

140 LOCATE 29,3 

150 NB1$=INKEY$:IF NB1$="" THEN 150 
160 IF NB1$<"2" OR NB1*>"7" THEN 190 
170 PRINT NB1* 

180 FOR Z=2 TO VAL(NB1$): FOR Y=1 TO 9:RE 
AD A:NEXT Y:NEXT Z 


190 

FOR I 

= 1 TO 9 

200 

READ 

A:P(I)=A;S(I)=ABS(A-l> 

210 

NEXT 

I 

220 

DATA 

1,1, 1,1,U, 1,1, 1,1 

230 

DATA 

0,0,0,0,1,0,0,0,0 

240 

DATA 

0,1,0,0,0,1 , 1 , 1,0 

250 

DATA 

0,1,0,0,1,0,1,0,1 

260 

DATA 

0,1 ,1,0,1,0,0,1,1 

270 

DATA 

0,1,0,0,1,1,0,1, 0 

280 

DATA 

0,1,1,1,0,0,0,1,1 

290 

DATA 

0,0, 1,0,1 , 1,0,0,1 

300 

CLS:GOSUB 1260 

310 

GOSUB 

1280 

320 

XX =30 

: INV=1:GOSUB 1380 

330 

340 



'- 

NOMBRE DE COUPS- 


350 - 

360 LOCATE 31,15:PRINT "Nombre" 

370 LOCATE 30,16:PRINT "de coups" 

380 LOCATE 34,17:PRINT "0" 

390 XX=5:INV=0:GOSUB 1380 

400 '- 

410 '-PAVES IDENTIQUES ?-- 

420 ' :--- 

430 FOR X=1 TO 9 

440 IF S(X)OP(X) THEN 510 ELSE 450 
450 NEXT X 

460 LOCATE 5,5:PRINT "BRAVO C'EST TRES B 
IEN" 

470 A=0: GOTO 650 

480 '- 


490 


—RESTE-T'IL DES CASES NOIRES 


PRINT "MAL JOUE VOUS VOUS 


500 '- 

510 FOR X=1 TO 9 
520 IF POOOl THEN 570 
530 NEXT X 
540 LOCATE 5,5 
ETES BLOQUE" 

550 A=0:GÜT0 650 

560 '- 

570 '-CASE A MODIFIER- 

580 '- : - 

590 LOCATE 5,1:PRINT "Entres le numéro d 
e la case" 

600 LOCATE 10,2:PRINT "ou 0 pour arrêter 

II 

610 A$=INKEY$:IF A$="" THEN 610 
620 IF A*<"0" OR A$>"9" THÈN 610 
630 A=VAL(A$) 
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650 '-FIN DU JEU- 

660 '- 

670 IF A=0 THEN 680 ELSE 710 
680 FOR 1=1 TO 2000sNEXT I 
690 INK 0,1:1NK 1,24 s CLS s END 

700 '- 

710 '-CONTROLE—— 

720 '- 

730 IF P ( A ) < > 1 THEN 780 
740 PRINT CHR*(7); 

750 LOCATE 1,4:PRINT "Coup interdit,la c 
ase doit etre noire" 

760 FOR 1=1 TO 500:NEXT I 

770 LOCATE 1,4:PRINT STRING*(37,): GOT 
O 590 

780 C0UP=C0UP+1:LOCATE 33,17:PRÏNT COUP 
790 ON A GQSUB 840,890,930,980,1020,1080 
,1120,1170,1210 
800 GOTO 390 

810 '- 

820 '-MODIFICATION DES CASES- 

830 '- 

840 P(1)=1 

850 P (2) =ABS (P (2) — 1 ) 

860 P(4)-ABS(P(4)-1) 

870 P(5)=ABS(P(5)-1) 

880 RETURN 
890 P(2)=1 

900 P <1)=ABS(P(1)—1) 

910 P(3)=ABS(P(3)—1) 

920 RETURN 
930 P ( 3 ) = 1 

940 P(2)=ABS(P(2)-1) 

950 P(5)=ABS(P(5)—1) 

960 P(6)=ABS(P(6)—1> 

970 RETURN 
980 P(4)=1 

990 P(1)=ABS(P<1>-1) 

1000 P(7)=ABS(P(7)—1> 

1010 RETURN 
1020 F’ ( 5 ) = 1 
1030 P < 2)=ABS(P(2)—1) 

1040 P(4)=ABS(P(4)-1) 

1050 P ( 6)=ABS(P(6)—1) 

1060 P(8 > =ABS(P(8)-1) 

1070 RETURN 
1080 P(6)=1 
1090 P(3)=ABS(P(3)-1) 

1100 P(9)=ABS< P ( 9 ) -1 ) 

1110 RETURN 
1120 P < 7)=1 
1130 P(4)=ABS(P(4)—1) 

1140 P < 5)=ABS(P(5)—1) 

1150 P(8)=ABS(P(8)-1) 

1160 RETURN 
1170 P < 8)=1 
1180 P(7)=ABS(P(7)-1) 

1190 P(9)=ABS(P(9)—1> 

1200 RETURN 
1210 P(9)=1 
1220 P (5) =ABS (P (5) — 1 ) 

1230 P(6)=ABS(P(6)—1) 

1240 P(8)=ABS(P<8)—1) 

1250 RETURN 


1260 GOSUB 1280:XX=5:INV=0:GQSUB 1380:XX 
=30 : INV=1 :GOSUB 1380: GOTO 1510 

1270 '- 

1280 '-PAVE NUMERIQUE- 

1290 '--- 

1300 FOR 1 = 1 TO • 3 
1310 LOCATE 15,(I+l)*2+4 
1320 FOR J=1 TO 3 
1330 PRINT (I —1)*3+J ; 

1340 NEXT J 
1350 NEXT I v 
1360 RETURN 

1370 '- 

1380 '-PAVE DE COULEURS- 

1390 '- 

1400 FOR 1=1 TO 3 

1410 LOCATE XX, (I +1> *2+4 

1420 FOR J=1 TO 3 

1430 IF INV=0 THEN IF P(J+(1-1)*3)=0 THE 
N PEN 2 ELSE PEN 3 

1440 IF INV=1 THEN IF P(J+(I—1)*3)=0 THE 

N PEN 3 ELSE PEN 2 

1450 PRINT CHR*(143);" "; 

1460 NEXT J 
1470 NEXT I 
1480 PEN 1 
1490 RETURN 

1500 '- 

1510 '-REGLE DU JEU- 

1520 '- 

1530 LOCATE 1,1 : PRINT "Vous devez ,en inv 
ersant les couleurs" 

1540 F'RINT "de la représentation de gauc 
he obtenir celle a droite de l'écran" 
1550 F'RINT "en respectant les réglés sui 
vantes : " 

1560 LOCATE 1,17: F'RINT "Appuyez sur une 
touche pour explications" 

1570 A*=INKEY*:IF A*="" THEN 1570 
1580 CLSsPRINT "La, case a inverser devra 
toujours etre" 

1590 PRINT "noire, mais ATTENTION selon 
sa position,"; 

1600 PRINT "1 'inversion de couleur influ 
era sur les cases adjacentes : " 

1610 PRINT : F'RINT "Si vous modifiez -la cc 
uleur d'une case 

1620 PRINT:PRINT "Centrale 5, la couleur 
des cases 2-4—6-8 sera aussi inversee. 
1630 PRINT:PRINT "D'angle 1,3,7,9 , la c 
ouleur des cases" 

1640 PRINT "contiguës sera aussi inverse 
e. " 

1650 PRINT:PRINT "ex : pour inversion ca 
se 1, les cases 2, 4,5 sont aussi inver 

sees." 

1660 PRINT:PRINT "De milieu 2,4,6,S , la 
couleur des casesde la meme ligne ou cc 
lonne est inversee" 

1670 F'RINT "ex : pour inversion de case 
2, les cases 1,3 sont aussi inversées. 
1680 PRINT:PRINT:PRINT "Appuyez sur une 
touche pour commencer." 

1690 A*=INKEY*:IF A*="" THEN 1690 
1700 CLS:RETURN 


42 




















ATARI ST 

CASSE-BRIQUES 

Fonctionnant uniquement en mode moyenne résolution 
(640 par 200) ce casse-briques 
possède un éditeur de tableaux qui permet la création 
de décors déments ! A vous de jouer. 




rnove.l #bfecran,a3 

Remarques : 


rnove.l a 0 ,Cal) 

Ce programme est en assembleur et le présent listing a été écrit 


rnove. 1 aO, (a2!> 

avec le Macro-Assembleur Metacomco. Nous vous conseillons 


move.1 aO,Ca3) 

donc fortement d’utiliser ce dernier pour saisir le présent 


rnove. 1 vi deo, aO 

listing. 


move.w #7999,dO 


T efface l'écran 4 

** *: jfe :ï. # :±: * * a: % % y $ f: 

pefface: 

:f :f: :t 4 : 4 : 4 : 4 : 4 : 4 : 4 : 4 : 4 : 4 . 4 : 444 : 4 : 4 4 : 4 4 4 : 

c 1 r.1 (aO) + 

* - CASSE BRIQUE - * 

dbf dO,pefface 

4 JUILLET 1987 4 

rnove. w #19, dO 

*444444*44**444444444444444*4444 

move.w # 0 ,d 2 

* recherche l'emplacement de l'écran 4 

4 place le bord de gauche $ 

riiove. w # 2 , -1 sp !> 

bc 1 : 

trap #14 

move.w # 1 ,d 1 

addq .1 # 2 ,sp 

move.w #l,d3 

rnove.l dO,video 

move.w #9,d4 

rnove. w # 10 , dü 

move.w #0,d5 

.jsr affiche 

move. 1 #tour , a& 

rnove. w # 10 , dû 

jsr gestion 

.jsr affiche 

addi.w # 10 ,d 2 

move.w #9,d0 

dbf d 0 ,b c 1 

jsr affiche 

move.w #19,do 

move.w #9,d0 

move.w # 0 ,d 2 

jsr affiche 

4 plac,e le bord de droite 4 

move.w #9,d0 

bc 2 : 

jsr affiche 

move.w #37,dl 

4 annule le curseur T 

move.w #l,d3 

move.w # 0 ,- 1 sp !> 

rnove. w #9,d4 

rnove.w # 21 , — f sp) 

move.w #0,d5 

trap #14 

rnove.l #tour,a 6 

addq .1 # 6 ,sp 

jsr gestion 

t annule la souris 4 

addi.w # 10 ,d 2 

move.w # 0 , -1 sp) 

dbf dO,bc2 

move.w # 0 ,-Csp) 

4 place le mur du haut 4: 

trap #14 

bord 2 : 

t initialise les couleurs 4 

move.w # 2 ,dl 

addq .1 #4,sp 

move.w # 0 ,d 2 

rnove.l #palette,-<sp:> 

move.w #l,d3 

move.w # 6 ,-Isp) 

move.w # 6 , d4 

trap #14 

move.w #17,d5 

addq.l #£,sp 

rnove .1 #abor d,a 6 


jsr gestion 

t initialisation du mode édition 4 

move.w #3,dl 

recommences 

rnove. w #18, d 2 

move.w #9,-Isp.) 

jsr locateS 

move.w #l,-(sp) 

jsr lutinS 

move.w #35,-Isp) - 

rnove. 1 #ac t i on , a 2 

trap #14 

rnove. w #3, Ca2!> 

addq .1 # 6 ,sp 

maçon : 

rnove.l video, aO 

jsr clavier 

ad d.1 #$22600,aO 

cmp.b #$4b,dO 

rnove.l ttpfecran, al 

beq cgauche 

move. 1 . # f ec r an,a 2 

cmp.b #$4d,dO 
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beq cdroite 
cmp.b #$48,dû 
beq chaut 
cmp.b #$50,dO 
beq cbas 
cmp.b #$39,dO 
beq tir 
cmp.b #$lc,dO 
beq terminer 
.jmp maçon 

4: déplacement du carre 4: 
cgauche: 
subq.w #2,d1 
cmp.w #l-,dl 
beq changel 
.jsr locateS 
jsr lutinS 
jmp maçon 
cdroite: 
addq.w #2,dl 
cmp.w #37,dl 
beq changes 
jsr locateS 
jsr lutinS 
jmp maçon 
chaut : 

subq.w #£, d2 
cmp.w #12,d2 
beq changes 
jsr locateS 
jsr lutinS 
jmp maçon 
cbas: 

addq.w #£,d2 
cmp.w #108,d2 
beq change# 
jsr locateS 
jsr lutinS 
jmp maçon 
changel: 
addq.w #2,d1 
jsr locateS 
jsr lutinS 
jmp maçon 
change2: 
subq.w #2,dl 
jsr locateS 
jsr lutinS 
jmp maçon 
changes: 
addq.w #6,d2 
jsr locateS 
jsr lutinS 
jmp maçon 
change#: 
subq.w #6,d2 
jsr locateS 
jsr lutinS 
jmp maçon 

4: place une brique dans le carre * 

tir: 

move.w #l,d3 
rnove.w #5,d4 
move.w #0,d5 
move.1 #brique,a& 
iribve.1 #b 1 oc x , a4 
move.1 #b1 ocy,a5 
move.1 #ac tion,a2 


move.w Ca2),d6 
addq.w #1,d& 
rnulu.w #2,d6 
add.l d6,a4 
add.1 dS,a5 
divu.w #2,d6 
move.w d S, C a\2 ) 
move.w dl,Ca4) 
move.w d2,Ca5> 
jsr gestion 
move.w #l,vd7 
jmp maçon 

4- mode édition terminer 4: 
t er mi n er : 
move.1 #ac tion,a2 
move.w (a2),d£ 
cmp.w #5,dS 
ble maçon 
jmp pgo 

4: affiche les briques en mémoire 4 

briquep: 

move.1 # action,a2 
move.w Ca2),d6 
move.l #blocx,a4 
move.1 #b1 oc y,a5 
add.l #8,a4 
add.l #8,a5 
sub.w #4,d6 
forrel: 

move.w Ca4)+,dl 
move.w Ca5)+,d2 
move.w #l,d3 
move.w #5,d4 
move.w #0,d5 
move.1 #brique,aS 
jsr gestion 
dbf d6,forrel 
4: affiche la barrière 4: 
pgo: 

move.w #3,dl 
move.w #183,d2 
move.w #1,dS 
move.w #5,d4 
move.w #16,d5 
move.l #elec,a6 
jsr gestion 
jmp go 

4: gestion des décors pour les briques 
le pourtour 4: 
gestion : 

move.1 #bsauve,al 
movern.w d0-d7,Cal) 
move.1 #c or d e,a1 
movern. 1 a4-a5,Cal) 
move.1 #dx,a1 
move.l #dl,aS 
move.l #dh,a4 

move.w dS,CaS) ; sauve largeur 
move.w d4,Ca4) ; sauve hauteur 
rnulu.w #4,dl 
rnulu.w #160,d2 
move.l video,aO 
add.l dl,a0 
add.l d2,aO 
move.w dl,Cai) 
jmp décor 
gecr an: 

move.1 video,aO 
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add.l d2,a0 

dbf d4,blutinl01 

add.l dl,aO 

blutinl02: 

rnove. w d1,Cal) 

rnove. w #1, d3 

décor : 

rnove. w #5,d4 

rnove. w C à& ) +, C aO ) + 

rnove.1 <a3),a0 ; écran 

rnove.w Ca£)+,CaO)+ 

rnove. 1 a0,(al) 

dbf d3,décor 

rnove.1 #bflutin,a6 

rnove. w Ca3),d3 

blutin112: 

addq.w,#l,d3 

rnove. w Ca0) + , (a£) + 

mulu.w #4,d3 

rnove. w CaO) +, (a61 + 

sub.1 d3,a0 

dbf d3,blutinll2 

add.l #160,aO 

rnove. w #l,d3 ; changer 

rnove. w Ca3),d3 

sub.l #8,a0 ; changer 

dbf d4,décor 

add.l #160,aO 

rnove. w Ca4),d4 

dbf d4,blutinll2 

dec 1 : 

rnove. w #5,d4 ; changer 

subq.1 #4,a£ 

blut in 113: 

dbf d3,dec1 

rnove. 1 #carre,a5 

rnove. w Ca3),d3 

rnove.1 Ca3),a0 

dbf d4,decl 

b1 utin103 : 

rnove. w Ca4),d4 

rnove. w Ca5) + ,d6 

rnove. w <al),dl 

rnove. w Ca5)+,d7 

addq.w #l,d3 

rnove. w d£,dü 

mulu.w #4,d3 

or . w d 7, d 0 

add.l d3,dl 

not.w dO 

rnove. w Ca3),d3 

rnove. w Ca0),dl 

dbf d5,gecran 

and.w dô,dl 

rnove. 1 tfbsauve, al 

or . w dl,d£ 

rnovern. w (a 1 ) , d0-d7 

rnove. w d6, CaO.’> + 

rnove. 1 ttcorde, al 

rnove. w (a0),dl 

rnovern .1 (al) , a4~a5 

and.w d0,dl 

rts 

or . w d 1, d7 

* gestion du placement du curseur pour 1 

rnove. w d7,CaO) + 

e carre f 

dbf d3,blutinl03 

1 üC ât yjj a 

rnove. w #l,d3 

rnove. 1 #bsauve,a& 

sub.1 #8, aO 

rnovern. w d 1 -d2, C a6 ) 

add.l #160,aO 

rnove.1 vi deo, aO 

dbf d4,blutinl03 

mulu.w #160, d2 

rnove. 1 #bsauve,a6 

mulu.w #4,dl 

rnovern. w ( a6 ), d0-d6 

add.1 dl,aO 

rnove. 1 #corde,a6 

add.l d2,a0 

rnovern .1 (! a£ , a4 -a5 

rnove.1 #ecran,a3 

rnove. w #0,d7 

rnove.1 aO,Ca3) 

rts 

rnovern. w CaS),dl-d2 

X initialisation du jeu X 

rts 

gos 

*• gestion de lutins carre X 

rnove. w #2,-Csp) 

lutin3: 

rnove. w #l,-(sp) 

rnove. 1 #bsauve, a6 

rnove. w #35,-(;sp!) 

rnovern. w d0-d£, <a£l 

trap #14 

rnove. 1 #corde,a6 

addq.l #£,sp 

rnovern. 1 a4-a5, < a^) 

rnove .1 #uscore,al 

rnove. 1 #b f écran, al j; ancienne valeur de 

rnove. w #0, Cal ) 

1'écran 

rnove. 1 #dscore, al 

crnp.w #l,d7 

rnove. w #0,Cai:> 

beq blutin 102 

rnove. 1 #c sc or e, a 1 

rnove. 1 Cal),a0 

rnove. w #0, Cal ) 

rnove. 1 #carre,a5 ; lutin carre 

rnove. w #3000, dO 

rnove. w #l,d3 ; largeur changer 

rnove. w #19, dl 

rnove. w #5,d4 ; hauteur changer 

rnove. w #159, d2 

rnove. 1 #bflutin,a£ 

rnove.w #l,d5 

3lut in 101 : 

rnove. w #2, d£ 

rnove. w C a& ) +, ( aO > + 

rnove. w #0,d7 

rnove. w <! a£ 1 + , ( aO ') + 

rnove. w #19, d3 

dbf d3 , bl ut i n 101 

rnove. w #168, d4 

rnove. w #l,d3 

jsr locate2 

sub.l #8,a0 

jsr lutin2 

add.l #160,aO 

début 1 : 
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jsr clavier 
crnp.b #$4b,dü 
beq rgauche 
crnp.b #$4d,d0 
beq rdroite 
jsr 1 ocate2 
jsr rlutin2 
debut2: 
crnp.w #1,d5 
beq bgauche 
crnp.w #2, d5 
beq bdroit 
debutS: 
crnp.w #l,d6 
beq bhaut 
crnp.w #2 f d6 
beq bbas 

* pause pour diminuer la rapidité de la 
bal 1e % 

pause: 

move.w #6000,dO ; 6000 = la vitesse de 
la balle 
pause2: 
nop 
nop 
nop 
nop 
n o p 

db f dO,pause2 
jrnp début 1 

X déplacement de la raquette % 
rgauche: 
subq.w #li,d3 
crnp.w #2,d3 
beq rectifil 
jsr locate2 
jsr lutin2 
jrnp début2 
rlutin2: 

rnove. 1 #psauve, a6 
movern.w d0-d7, <a6) 
jsr lutin 13 
rts 

r droi te: 
addq.w #1, d3 
crnp.w #34, dS 
beq rectifi2 
jsr locate2 
jsr lutin2 
jrnp début2 
r ec t i f i 1 : 
addq.w #l,d3 
jsr locate2 
jsr lutin2 
jrnp début2 
rectifi2: 
subq.w #1,d3 
jsr locate2 
jsr lutin2 
jrnp debut2 

* déplacement de la balle 4: 
bgauche: 

rnove. 1 #buf f , a5 
move.w Ca51,d0 
crnp.w #l,d0 
beq débuts 
sub.w #l,dl 
jsr test 


crnp.w #3,d7 
beq cor5 
crnp.w #l,d7 
beq corl 
crnp.w #2,d7 
beq cor2 
jsr locate 
jsr lutin 
jrnp débuts 
cor 1 : 

add.w #l,dj 
jsr locate 
jsr lutin 
move.w #2,d5 
jrnp débuts 
cor 2: 

jsr efface 
add.w #l,dl 
jsr locate 
jsr lutin 
rnove. w #2,d5 
jrnp débuts 
bdroit: 

rnove. 1 #buff,aïï 
move.w Ca5),d0 
crnp.w #l,d0 
beq débuts 
add.w #1, dl 
jsr test 
crnp.w #3,d7 
beq cor5 
crnp.w #l,d7 
beq cor3 
crnp. w #2, d7 
beq cor4 
jsr locate 
jsr lutin 
jrnp début3 
cor 3: 

sub. w #1 , dl 
jsr locate 
jsr lutin 
rnove. w #l,d5 
jrnp débuts 
cor 4: 

jsr efface 
sub.w #l,dl 
jsr locate 
jsr lutin 
rnove. w #l,d5 
jrnp ‘débuts 
bhaut : 
add.w #3,d2 
jsr test 
crnp.w #5, d7 
beq fin 
crnp.w #l,d7 
beq cor5 
crnp.w #2,d7 
beq cor6 
crnp.w #3,d7 
beq cor5 
jsr locate 
jsr lutin 
jrnp pause 
c or 5 : 

sub.w #3,d2 
jsr locate 
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jsr lutin 
move.w #2,d6 
jrnp pause 
C or 6 : 

.jsr efface 
sub.w #3,d2 
jsr locate 
.jsr lutin 
move.w #2,d6 
jrnp pause 
bbas: 

sub.w #3 f d2 
.jsr test 
cmp.w #5,d7 
beq fin 
cmp.w #l,d7 
beq cor7 
cmp.w #2,d7 
beq corB 
cmp.w #3,d7 
beq cor5 
.jsr locate 
jsr lutin 
jrnp pause 
:or 7 : 

add.w #6,d2 
jsr locate 
jsr lutin 
move.w #l,d6 
jrnp pause 
;or S: 

jsr efface 
add.w #3,d2 
jsr locate 
jsr lutin 
move.w #l,d6 
jrnp pause 

• efface la moitié d'une brique % 
rf face: 
jsr locate 


clr. 1 
add. 1 
clr. 1 


(aO) 

#160,aO 
CaO) 


add.l #160,aO 


clr. 
add. 
clr. 
add. 
clr. 
add. 
clr. 


CaO) 

#160,aO 
CaO) 

#160,aO 
CaO) 

#160,aO 
CaO) 


: sauvegarde et inc renient ait ion du score 

X 

move.1 #uscore,a2 
rnove.1 ttdscore,a3 
move.1 #c sc or e,a4 
move.w Ca2),d0 
addq. w #1, dO 
move.w dO,Ca2) 
cmp.w #10,dO 
beq attlO 
rt s 
i't 10: 

move.w #0,Ca2) 
move.w Ca3),d0 
addq.w #l,dO 
move.w dO, Ca3) 
cmp.w #10,dO 


contre le 


beq attlOO 
rt s 

att100: 

move.w #0,Ca3) 
move.w Ca4),d0 
addq.w’#1,dO 
move.w dO,Ca4) 
rts 

teste la balle 
raquette et les briques % 
test : 

teste le pourtour #: 
cmp.w #138,d2 
beq arrêt 
c mp.w #2,d1 
beq ok11 
cmp.w #12,d2 
beq ok. 11 
c mp. w #9, d2 
beq ok11 
cmp.w #6,d2 
beq ok11 
cmp.w #37,dl 
beq okll 
jrnp test2 

okll: move.w #l,d7 
move.1 #buff,a5 
move.w #0, Ca5) 
rts 

arrêt: move.w #5,d7 
rts 
ok 1 : 

move.1 #buff,a5 
move.w #0,Ca5) 
move.w #3,d7 
move.w #l,d6 
rts 
okl12: 

move.w #3,d7 
move.w #l,d& 
move.1 #buff,a5 
move.w #1,Ca5) 
rts 
test2: 

teste la collision avec la 
cmp.w d3,dl 
beq o k 2 
.jrnp t3 
ok2:. 

cmp.w #168,d2 
beq okl 
cmp.w #171,d2 
beq ok 1 
cmp.w #174,d2 
beq ok 1 
cmp.w #177,d2 
beq ok 1 
t3: 

move.w d3,d0 
add.w #l,dO 
w dl,dû 
c. k 13 
t4 


cmp 
beq 
jmp 
o k 13 
cmp 
beq 
cmp 
beq 


w #168,d2 
okl 12 
w #171,d2 
okl 12 




pourtour,1 a 


raquette % 

















crnp.w #174, d2 
beq okll2 
crnp.w #177, d2 
beq ok 112 
t4: 

rnove.w d3,d0 
add.w #2,d0 
crnp.w dl,dO 
beq okt4 
jri' 1 P 15 
okt 4 : 

crnp.w #168, d2 
beq okll2 
crnp.w #171, d2 
beq okll2 
crnp.w #174, d2 
beq okll2 
crnp.w #177, d2 
beq okll2 
t5: 

rnove.w d3,d0 
add.w #3,d0 
crnp.w dl,dO 
beq okt5 
jrnp test3 
okt5: 

crnp. w #165, d2 
beq okl 
crnp.w #168, d'2 
beq okl 
crnp.w #171,d2 
beq okl 
crnp.w #174,d2 
beq okl 
crnp.w #177, d2 
beq okl 
test3: 

teste collision avec les briques $ 
jsr locate 
rnove. 1 #psauve,a6 
rnovern.w d3-d4, Ca6> 
rnove.w Ca0)+,d3 
rnove.w (a0) + ,d4 
crnp.w #0,d3 
beq ok3 

rnovern.w CaS:>,d3-çl4 
move.1 #buff,a5 
rnove.w #0, (a5!> 
rnove.w #2,d7 
rts 
ok3: 

crnp.w #0,d4 
beq ok4 

rnovern.w Ca6),d3-d4 

rnove.w #2,d7 

rts 

ok4: rnove.w #0,d7 
movem.w C a6),d3-d4 
rts 

$ fin de la partie 
fin: 

jsr clavier 
crnp.w #$3b, dO 
beq recommence 
crnp.w #$3c,d0 
beq briquep 
move.w #32000,dO 
rnove. 1 video, aO 


bouc2: 


not. b 

(a0) + 

dbf dO 

r bouc2! 

jsr af fiche2 

move.1 

# u s c or e, a 1 

move.1 

#dscore,a2 

rnove. 1 

#csc ore,a3 

move. w 

(a 1),d 1 

move.w 

( a2),d2 

move.w 

Ca3),dO 

addi.w 

#48, dO 

jsr affiche 

rnove. w 

d2, dO 

addi.w 

#48,dO 

jsr affiche 

move.w 

dl, dO 

addi.w 

#48,dO 

jsr affiche 

rnove. w 

#9, d7 


bouc6: 

rnove.w #8,d0 
jsr affiche 
dbf d7,boucs 
rnove.w #32000, dO 
move.1 vid eo,aO 
bouc5: 

not.b (a0)+ 
dbf d0,bouc5 
rnove.w #9,dl 
revi 1 : 

rnove.w #32, dO 
jsr affiche 
dbf d 1, r evi 1 
rnove.w #3,d7 
bouc 7: 

rnove.w #8,d0 
jsr affiche 
dbf d7,bouc7 
jrnp fin 

#: affiche un caractère a l'écran * 
affiche: 
rnove.w d0,-Csp) 
rnove.w #02,-(sp) 
trap #1 
addq.1 #4,sp 
rts 

affiche une chai ne de caractère a 1 ' - 
ran 

a f fic h e2: 

rnove .1 #c hai ne, - ( sp ') 
rnove.w #09,-(sp) 
trap #1 
addq.l #£,sp 
rts 

#• fonction locate placement du curseur 

e la balle * 

locate: 

rnove. 1 ttsauve, a6 
rnovern.w dl-d2, CaS) 
rnove. 1 vi deo, aO 
rnulu.w #160, d2 
rnulu.w #4,dl 
add.l dl,a0 
add.l d2,a0 
move.1 #ecran,a3 

rnove. 1 aO, Ca31 ; sauve la mémoire ecr = 
movem.w Ca6),dl-d2 
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rts 

t gestion du lutins balle 4 

i ut i n : 

rnove. 1 #sauve,a6 
moVem.w d0-d7,(a6) 

rnove. 1 #pfecran,al ; ancienne valeur de 
1'écran 

rnove. 1 (al) , aO 

rnove. 1 #ballon,a5 ; lutin navette 
rnove. w #0,d3 ; largeur changer 
rnove. w #2,d4 ; hauteur changer 
1 ut i n 101 s 
c 1 r . w ( a O ) + 
c 1 r . w ( aO ) + 
dbf d3,lutinl01 
move.w #0,d3 ; changer 

sub.l #4,a0 ; changer 
add.l #160,aO 
dbf d4, lutin 101 
1 ut i ni02: 
move.w #0,d3 
move.w #2,d4 ; changer 
rnove. 1 (a3),a0 ; écran 

rnove. 1 aü, (al ) 
iut in 113: 

rnove.1 #ballon,a5 jchanger 
rnove.1 Ca3),a0 
lut i ni03: 

rnove. 'W ( a5 ) +, ( aO ) + 
move.w (a5)+,(a0)+ 
dbf d3,lutin 103 
move.w #0,d3 ; changer 
sub.l #4,a0 jchanger 
add.l #160,aO 
dbf d4,lutin 103 
aove.1 #sauve,a6 
moverri. w (a6) , d0-d7 
rts 

; gestion du clavier 4 
: 1 avier: 

love. 1 #psauve,a£ 
movern.w dl-d7, (a6) 

■.ove.w #255,-(sp> 

’iove.w #06,—(sp) 
trap #1 
addq.1 #4,sp 
swap dO 

movern. w (a6 ) , d 1 -d7 
rts 

= fonction du placement du curseur pour 
a raquette 4 
. ocate2: 

rnove.1 #psauve,a6 
sovérn.w d3-d4, Ca.6) 
love. 1 vidéo, aO 
mulu.w #160, d4 
nulu.w #4,d3 
add.l d3,a0 
add. 1 d4, aO 
-ove.1 #ecran,a3 

move.l aO,(a3) ; sauve la mémoire écran 
■novem.w (a6),d3-d4 
' ts 

gestion du lutins raquette 4 
utin2: 

.ove.1 #psauve,a6 
novem.w d0-d7,(a6) 
ove.1 #fécran,al 


rnove. 1 (al),a0 

move.w #3,d3 
move.w #4,d4 
1 utinOl: 
clr.w (a0)+ 
clr.w (a0)+ 
dbf d3,1 utinOl 
rnove. w #3,d3 
sub.1 #16,aO 
add.l #160,aO 
dbf d4,1utinOl 
move.l (a3),Cal) 

1 utin13: 
move.w #3,d3 
move.w #4,d4 ; changer 
move.l #raqueti;e, a5 jchanger 
move.l (a3),a0 
lutinOS: 
rnove. w (a5) + ,d6 
move.w (a5)+,d7 
rnove. w d6,d0 
or.w d7,d0 
not.w dû 
move.w (a0),dl 
and.w d0,dl 
or . w d 1, d6 
rnove. w d6,(a0) + 
rnove.w (a0),dl 
and.w d0,dl 
or.w d1,d7 
rnove. w d 7, (aO > + 
dbf d3,lutinOS 
move.w #3,d3 j changer 
sub.l #16,aO jchanger 
add.l #160,aO 
dbf d4,lutin03 
rnove. 1 #psauve, a6 
rnovern. w (a6) , d0-d7 
rts 

écran: ds.1 2 

fecran: ds. 1 2 

flutin: ds.w 100 

chaine: de.b 'SCORE : f 

4 définition de la raquette 4 

raquette: 

de.w *1FFF,O,$FFFF,*FFFF,*FFFF,*FFFF,*F 
FFS, 0 

dc.w *6007,*1 FFS,0,*FFFF,O,*FFFF,*E006, 
*1FF8 

dc.w *C003,*3FFG,*FFFF,*FFFF,*FFFF,*FFF 

F,*C003,*3FFF 

dc.w *6007,*1FFS,0,*FFFF,0,*FFFF,*E006, 
*1FF8 

dc.w *1FFF,0,*FFFF,*FFFF,*FFFF,*FFFF,*F- 
FF8,0 

sauve: ds.w 5 
psauve: ds.w 5 
bsauve: ds.w 5 

palette: dc.w 0,*443,*055,*713 

blocx: ds.w 500 

blocy: ds.w 500 

video: de.1 0 

use or e: ds.w 2 

dscore: ds.w 2 

c score: ds.w 2 

buff: ds.w 2 

4 définition de la brique 4 
brique: 






de.w $FFF3,$FFF3,$FFF8,$FFF8 
de.w $FFF3,$FFF3,$FFF8,$FFFS 
de.w $8000,$8000,$0008,$0008 
de ..w $FFFF, $FFFF, $CFF8, $CFF"8 
de.w $FFFF,$FFFF,$CFF8,$CFF8 
de.w 0,0,0,O 
4 définition des bords 4 
el ec : 

de.w O,$7FDf,0,$F7FD 
de.w 0,$BFAF,0,$EBFA 
de.w 0,$DF77,0,$DDF7 
de.w 0,$EEFB,0,$BEEF 
de.w O,$F5FD,0,$7F5F 
de.w 0,$FBFE,0,$FFBF 
abord: 

de.w $FFFF,0,$FFFF,0 
de.w $7E00,0,$FE00,0 
de.w $7EFE,0,$FEFF,0 
de.w $7EFE,0,$FEFF,0 
de.w $7EFE,0,$FEFF,0 
de.w $00FE,0,$00FF,0 
de.w $FFFF,0,$FFFF,0 
t our : 

de.w $FE7F, O, $F.E7F, 0 
de.w $FDBF,0,$FDBF,0 
de.w $FBDF,0,$FBDF,0 
de.w $F7EF,0,$F7EF,0 
de.w $EFF7,0,$EFF7,0 


de.w $EFF7,0,$EFF7,0 
de.w $F7EF,0,$F7EF,0 
de.w $FBDF,0,$FBDF,0 
de.w $FDBF,0,$FDBF,0 
de.w $FE7F,0,$FE7F,0 
dx: ds.w 2 
dl: ds.w 2 
dh: ds.w 2 
bfecran! ds. 1 2 
bflutin: ds.w 100 
corde: ds.l 4 
action: ds.w 5 
£ définition du rectangle 4 
carre: 

de.w $FFFF, 0, $FFFC, 0 
de.w $8000,0,$0004,0 
de.w $8000,0,$0004,0 
de.w $8000,0,$0004,0 
de.w $8000,0,$0004,0 
de.w $FFFF ,0, $FFFC ,0 
pfecran: ds.l 2 
p f1 utin: ds.w 100 
$ définition de la balle 4 
bal Ion : 

de.w $0FF0,$0FF0 
de.w $1038,$1FF8 
de.w $0FF0,$0FF0 


ATARI ST 

CLA VIER 

Taper rapidement et sans fautes n'est pas facile, 
surtout lorsqu'on n'a jamais appris. Ce listing propose 
plusieurs exercices qui feront de vous un véritable 
Beethoven des claviers. 


Remarques : 

Ce programme est en GFA Basic et nécessite un moniteur 
monochrome Atari SM 124 ou SM 125. 


’ 4 * 4 * * 44 4 4444 4 4: *4 4 4 4 4: 

' Alain Hurtig 
’ Janvier/Fevri er 1987 
» 44444444444444444444 

t 

If Xbios.(4)< >2 

Al er t 3," Ce progr arrime i ne fonctionne 
qu'en! haute resol ut-ion ", 1, "Adi eu", I 
End 
Endi f 

Qosub Initialisation 
On Break Cont 
On Menu Gosub Menus 
On Menu Key Gosub Touches 


' Noyau du progr arrime 


Routine: 

Do 

On Menu 
If M7. 

Gosub Change_menu 
M7.=0 
En d i f 
If. T7. 

Gosub Ühange_touche 
T7.=0 
Endi f 

If Fin_de_bloc ! 

Gosub Nouveau_bloc 
Endi f 

Mouse Sour i s x 7., Sour i s y 7, Sour i s 2 7. 

I f Sour i sx7.< >Sour i sx 17. Or Sour i sy7. 
urisylX Or Sour i sz'/. 

I f Souris !=0 
Defrnouse 0 
Souris!=-l 
El se 

Ternps7.=T i mer 

Sour i sx 17.—Sour i sx7. 
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Sour i sy 17.=Sour i sy7. 

Endi f 
El se 

If Souris! 

If Int C (Ti mer —TempsX)/200) = 10 
Defrnouse Souris_vide$ 

Souris !=0 
En d i f 
Endi f 
Endi f 
Loop 

i 

Procedure Menus 
M >4=Me nu (0) 

Ret ur n 

Procedure Touches 
T7=Menu ( 14 ) 

Return 

' procedure de saisie 

f - 

Procedure Change_touche 
If F1agmenuX=0 
If T7. And 255 
Goto LabelS 
El se 

Cle7.=Asc (Mki$(T7.) ) 

Goto Fonction 
Endi f 
Endi f 

PoscurTX (Positi on7.-28) /8)+l 
Rosi t i on$=Mi d$ (Di c t e$, Pose ur 7., i ) 

If Poseur 7. >72 
Goto Label 6 
Endi f 

If T7. And 255 
Cl eS-Ch r $ ( T 7. ) 

Cle7.=Asc (Cl e$) 

If Flagrnenu/i—4 

If Cl e7.=32 ür C ( T 7. And 11384) And 
((Cle7.>39 And Cle7.<44) Or (Cle7.>44 And C 
1 e7.<5S) ) ) 

Gosub Ecris 
Goto Label 1 
Endi f 

Goto LabelS 
Endi f 

.If TV. And 16384 And Cle$<>"<" And Cl 
e$< >" > " 

If Cle“/.<>127 
Goto LabelS 
Endi f 
Endi f 

If Len(Accent$) And ( (Cle7»>31 And Cl 
e7.< 127) Or Cle7.=94 Or Cle7.= 185) 

If Flagmenu7.=2 

If (Position$="o" And Cle$="o") 

Dr (Posit i on$="a" And Cle$="a"^ Or (F'osi 
tion$="ê" And Cle*="e") Or (Position$="î 
' And Cle$="i") Or (Position$="û" And Cl 
e*="u") 

Cle$=PositionT 
Gosub Ecris 
Goto Label 1 
Endi f 

If (Position$="o" And Cle$=="o" ) 
Dr (Position$="a" And Cle$="a") Or (F : 'osi 
iion$="ë" And Cle*="e") Or (Position$="ï 


" And Cle$="i") Or (Posi t ionl="U" And Cl 
e$-"u") 

Cl eT>=Pos i t i on $ 

Gosub Ecris 
Goto L.abel 1 
Endi f 

Gosub Erreur., a c c e n t 
Goto’Label 1 
Endi f 

If Accent$=" A " 

If Cle$="a" 

Cl e$="a" 

Goto Label 0 
Endi f 

If Cle$="e" 

Cle$="ê" 

Goto Label 0 
Endi f 

If Cle$="i" 

Cle$="t" 

G o t o L. a b e 10 
Endi f 

If Cle$=”o" 

Cl e$="o" 

Go t o L a b e I 0 
Endi f 

If Cle$="u" 

Cle$="û" 

Got C' Label 0 
Endi f 
Endi f 

If Cle$="a" 

Cle$~"a" 

Goto Label0 
Endi f 

If Clet="e" 

Cle*="ë" 

Goto LabelO 
Endi f 

If Cle$="i" 

Cl e$="ï 
Goto LabelO 
Endi f 

If Cle$="o" 

Cle$="6" 

Goto LabelO 
End i f 

If Cl e$== " u" 

Cle$="ü" 

Goto LabelO 
Endi f 

Gosub Erreur_accent 
Goto Label 1 
Label O: 

Gosub Ecris 
Goto Label 1 
Endi f 

If Cle7.=94 Or Cle7.= 185 
Fl ag touche >4 (2) =1 
If Flagmenu/C=2 

If (Position$=”ô" Or Position$=" 
â" Or Position$="ê" Or Position$="î" ür 
Posi t i on$="û" ) And Cl e7.=94 
Accent$=Cle$ 

Goto Label 2 
Endi f 

If (Position$="6" Or Position^™" 
a" Or Position$="ë" Or Position$="ï" Or 








Posit i on$="ü" And Cle7-185 
Accent$~Cle$ 

Goto Label 2 
Endi f 

Gosub Ecris 
Goto Label2 
End i f 

Ac c en t$=C1e$ 

Goto Label2 
Endi f 


If (Cle7>31 And Cle7< 127 And Cle7<>3 
4 Dr Cle7.=248 Or Cle7=130 Or Cle‘/.= :L38 Or 
CleX—156 Or Cle7=151 Or Cle7=133 Or Cle 
7=135 Or Cl e7.=221 ') 

Gosub Ecris 
Goto Label2 
Endi f 

If Flagriienu7.=2 
I f Cl e7=27 
Cle$="J " 

Gosub Ecris 
Goto Label2 
Endi f 
If Cle7=9 
Cl e$=" J *' 

Gosub Ecris 
Goto Label 2 
Endi f 
En d i f 
Endi f 
LabelS: 

If T7 And 255 
If Cle7=13 

If Dic t e$=Dic t ee$ 

If Men7=l And Flagmenu7=5 
Di c t e$=Dat t 


Swap Lignel7, Li gne27 
Swap Li gne37, Li gne47. 

F'osi t i on7.--Col 7 
L o n g u e u r 7.=L e n ( D i c t e $ !> 

Di ctee$="" 

Spr i te Curseur 1$, F'osi t i on 7 ., Liq 

ne17+22 

Spr i te Curseur 2$, F'osi t i on 7.- .1., L 

i gne37+7 

Men7=2 
Goto Label2 
Endi f 

Fin_de_bloc!=-l 
Goto Label 2 


End i f 


If Flagmenu7.-2 Or Flagmenu7=4 
Cle$=" J " 

Gosub Ecris 
Goto Label2 
End i f 
Endi f 
Endi f 

’ touches de corrections 
Label G: 

If Len CAccent$) 

Accent$="" 

Endi f 

If T7. And 255 
Cle7=T7 And 255 
If Cle7.=8 And Poseur7>1 
Sprit e Cur seur2$ 

Sub F'os i t i on7., 8 


Di c t$= : Mi d$ (Di et ee$, Poseur 7) 

Poseur 7= (F'osi t i on7~28) /8+1 

Di c t ee$=Le f t $ C Di c t ee$, Pose ur 7--1 ') +1 

ict$ , 

Text Position'/., Ligne37, Dict$+" " 

Sp r i t e Cur seur 2$, F’os i t i on7— 1, L i qnv 

37+7 

I f Len (Dictee$> <Longueur 7 
Sprite Curseur 1$ 

Spr i te Curseur 1$, Position/., Li qnt 

17+22 

Endi f 

Goto Label2 
Endi f 

If Cle7=127 And Len (Dictee$.) And F'os 
c ur 7<=Len C Dic t ee$) 

Sprite Curseur2$ 

Dict$=Mid$(Dietee$,Poseur7+1) 

Dic tee$=Left$(Die tee$,Pose ur7—11+1 

ict$ 

Text F'osi t i on7, Li gne37, Di c t $+" " 
Sprite Curseur2$,Position7-l,Liqnt 

37+7 

If Len(Dic t ee$)< Longueur 7 
Sprite Curseur 1$ 

Spr i te Cur seur 1$, F’osi t i on7, Li qnr 

17+22 

Endi f 

Goto Label2 
Endi f 
Endi f 

Cl e7=Asc (Mki$CT7:> ) 

If Cle7=75 And Poseur7.>1 
Sprite Curseur 2 % 

Sub Position7,8 

Spr ite Cur seur 2*, F'osi t i on 7-1, Li gneS' 
+7 

Poseur 7= ( F'osi t i on7—28) /8+1 
If Poseur 7<Longueur7 
Sprite Curseur 1$ 

Sprite Curseur 1$, F'ositi on 7, L i g n e 1 '. 

+22 

Endi f 

Goto Label 2 
Endi f 

If Cle7=77 And Poscur7<=Len(Dictee$) 
Sprite Curseur 1 % 

Add Position7,8 

Spr ite Curseur2$, F'osi t i on7—1, Li g rie 31 
+7 

Poseur 7= (F'osi t i on7—28) /8 
If Pose ur 7< Longueur 7 
Sprite Curseur 1$ 

Sprite Cur seur 1$, F'osi t i on7, Liqnel' 

+22 

Endi f 

Goto Label 2 
Endi f 

If Cle7=82 And Len (DicteelO And Posai' 
7<=Len(Dictee$) And Len(Di etee$K72 
' F'rint Dictee$ 

Sprite Curseur2$ 

Dictee$=Mid$(Dictee$, 0, Poscur7-~l ) + ' 
"+Mid$(Dictee$,Poseur71 

Text F'osi t i on7, Li gne37, " " +Mi d$ C Die* 
ee$, Poseur7+1 ') 

Sprite Cur seur 2$, F'osi t i on7.1, LigneZ 


+7 








Goto Label2 
Endi f 

I f CleX=71 And Len CDi ctee$) 

Rosi t i on*/.=28 
Sprite Curseurl$ 

Sprite Carseur 2$ 

Text Posi t i on'/», Li g ne 3'/., Spac e* ( Len (1 Di 
:tee*)> 

Dictee$="" 

Spr i te Cur seur 2$, Posi t i on'/.-- 1, Li gne3*/. 
+7 

Sprite Cur seur 1 $, Pos i t i on X, L i gn e 1 X+2 

O 

Goto Label2 
Endi f 

If CleX=l15 And LenCDictee$) 

Posi t i onX=28 
Sprite Curseur2* 

Sprite Curseur 1$ 

Spr i te Cur seur 2$, Posi t i on'/.— 1, Li gne37. 
*7 

Sprite Curseur 1$, Posi t i on 7., Li gnelX+2 

Goto Label 2 
Endi f 

If CleX=116 And Len CDictee*) And F'oscu 
'X<Len’CDictee*) 

Sprite Curseur2$ 

F y sition'/.=LenCDic t >*8+28 

Sprite Cur seur 2$, Posi t i on'/.- 1, Li qne3X 
+7 

Sprite Curseur1$ 

If LenCDictee*XLongueurX 

Sprite Cur seur1$,PositionX,LignelX 

+22 

Goto Latbel2 
Endi f 

Sp rit e Cur seur1$, C LongueurX-1)*8+28, 
_ignelX+22 
Endi f 
F on c t i on : 

If CleX>58 And CleX<65 
MX=C1eX-48 
Goto Label 5 
Endi f 

If CleX=65 
MX=19 

Goto LabelS 
Endi f 
Label 1 : 

Accent*--" " 

Label 2: 

If Affiche_touche! And PoscurX<=Longue 
_rX 

Posit i on*'~Mi d*CDiet e*, CPositionX-28) 

8 + 1 , 1 ) 

Gosub Affiche_touche 
Endi f 
Label 5: 

: et urn 

-rocedure Erreur_accent 
Swap Ciel*,Cle* 

Swap Cle*,Accent* 

Gosub Ecris 

PoscurX=C CPositionX—28)/B) + l 
Position*=Mid* CDicte*,PoseurX,1) 

If PoseurX<73 


Swap Cle*,Cle1* 

Gosub Ecris 
Endi f 
Ret urn 

’ affichage de la lettre 
Procedure Ecris 

If Pose ur X< Len C Dic t ee*) +1 
Mid* CDic t ee*,PoseurX)-C1e* 

El se 

Dictee*=Dictee*+Cle* 

Endi f 

Sprite Curseur2* 

Text Posi t i on'/., Li gne3X, CI e* 

Add PositionX,8 

Sprite Curseur2$, PositionX-1, Ligne3"/,+7 
If Len CDictee*)<LongueurX 
Sprite Curseur 1* 

Sprite Curseur 1*, Position'/., LignelX+2 

2 

Endi f 

F1agt ouc h eX C 2)=0 
Return 

f 

’ affichage de la touche et du doigt 

t 

Procedure A f f i c Pt e _ t ouc Pt e 
Deftext 1,i,O,4 
If FlagtoucheXCO) 

Gosub Efface 
Endi f 

If Position*^" " 

I X=54 

If Touche'/.CFI agtoucheXCO) , 2) >6 
T ouc PteX C 54,2) =5 
El se 

T ouc heX C 54,2)—6 
Endi f 

Gosub Touche 
Fl ag touche'/. CO) = T7. 

Goto Fin_aff 
Endi f 

If Fl agmenuX ; =4 
F»est or e Ch i f f r e 
For IX=1 To Len CChif fret) 

Read A* 

Exit If A*=Position* 

Next IX 
Add I'/., 57 
FlagtoucheXCO)—IX 
Gosub Touche 
Goto Fin_aff 
Endi f 

If Position*-"- 1 " 

IX=56 

FlagtoucheXC0)=IX 
Gosub Touche 
Goto Fin_aff 
Endi f 

If Rosit i on*— I,J " 

IX=55 

Fl agtoucheXCO)=IX 
Gosub ToucPie 
Goto Fin_aff 
Endi f 

If Position*=" J " 

I*/.=50 

Fl agtoucheXCO) = 17. 

Gosub Touche 








Got O Fin_aff 
Endi f 

Restore Signe 
For 17=1 To 200 
Read A$ 

If A$="gu" 

A$=Chr$> C34) 

Endi f 

If A*="vi" 

A$=Chr$(445 
Endi f 

Exit If A$=Position$ 
Next 17. 

If I7.C43 

Gosub Touche 
Fl agtouche7C0 ') =17. 
Goto Fin_aff 
End i f 

If 17.>48 And 17.07 
Sub 17., 48 
Gosub Touche 
Fl agtouche7.CÜ!> =17 
If Touc h e7. C 17., 2 K £ 

17=52 

Gosub Touche 
El se 
17=51 

Gosub Touche 
Endi f 

Fl agtouche7C 15 = 17. 
Goto Fin_aff 
Endi f 

If I7>106 And I7<=116 
If Flagtouchè7(2 5=1 
Gosub Teste_lettre 
El se 

If 17.> 111 
17 = 51 

Gosub Touche 
Fl agtouche7. ( 1 5 =17 
Endi f* 

17=24 

Gosub Touche 
Flagtouche7. <05 =17 
Endi f 

Goto Fin_aff 
Endi-f 

If 17.>96 And I7<101 
If 17=97 Or 17=98 
Sub 17,73 
El se 

Sub 17,63 
Endi f 

Gosub Touche 

Fl agtouche7C05 =17. 

17=53 

Fl agtouche”/. C 1 5=17. 
Gosub Touche 
Got O Fi n_a f f 
Endi f 

If I7>100 And I7.C104 
If 17=103 
17=37 
El se 

Sub 17,77 
Endi f 

Gosub Touche 
F1 ag t ou c h e 7. C 0 5 = 17. 
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Main!=0 
Nex t IX 
Endi f 

If Début !=0 
Début !=—1 
Endi f 
If Men7.=2 

Swap LignelX,Ligne2X 
Swap Ligne3X,Ligne4X 
Men7.=0 
End i f 

r in_de_bloc!=0 
Spr i te Curseur2$ 

Eprite Curseurll 
If FlagmenuX—5 
AX=Random (32 ) +1 
Di cte*=Phr ase* ( A"/, 0) 

Dat*=F‘hr ase$ ( AX, 1 ) 

Gosub Blanc_espace_de_travai1 
Text ColX,Ligne27.,Dat*+"J " 

Longueur7.=Len (Dicte*) 

Men 7.= 1 
Goto Label4 
Endi f 
Dicte*-"" 

Dictee*-"" 

Qn FlagmenuX Gosub B1 oc 1, B1 oc2, B1 oc3, B 
. oc 4 

Gosub Blanc_espace_de_travai1 
Longueur 7.=Len (Di ete*)-1 
Dicte*—Left*(Dicte*, Longueur7.) 

Label4: 

Text Col 7., Li gnelX, Di cte*+" J " 

Rosi t i oriX—Col 7. 


Endi f 

Dicte*—Dicte*-'-A*+" '• 

Next IX 
Return 

Procedure Bloc4 
I f Main !—0 

For IX=6 To 10 

Add DiqitX(IX,0),247 
Next IX 

Put 265,295,Main1* 

Polyfill 41, Mai nxX(),MainyXO Offset 
247,0 

Main !--1 
Endi f 

For IX=1 To 5 
NX-Random ( 2 ) +4 
for JX=1 To' NX 

A*=Mid*(Chiffre*,Random(19),1) 

Di e te*=Dic t e*+A* 

Next J7. 

Dicte*-Dicte*+" " 

Next IX 
Ret urn 


’ procedure de menus 


Procedure Change_menu 
If M7.-1 

Alert 0," Clavier chic, clavier choc 

! par Alain Hurtiq (V. 1.3)! —..— 

-I Version "spcial Ti11»",1,"0 

K", IX 
Endi f 

If MX>10 And MX<16 


Sprite Curseur 1*,PositionX,LignelX+22 
Spr i t e Cur seur 2*, F'osi t i onX-1, Li gne3X+7 
If Fl aq m e n u X— 1 Or F1 a g m e n u X - 2 0 r F' 1 a g m 
LnuX-4 

A f f i c h e_t ouc h e ! =-1 

Position*=Mid*(Dicte*, 1, 1 ) 

Gosub Affiche_touche 
El se 

Af fiche_touche!=0 
Endi f 
; et ur n 

procedure Blocl 
Gosub Bloc3 
: et ur n 

-rocedure Bloc2 
For IX-1 To 5 
NX=Random(2)+4 
For JX=1 To NX 

A*=Mid*(Let tr e*,Random(116+1>,1) 

Dicte*=Dic t e*+A* 

Next JX 

Dicte*—Di ete*+" " 

Next IX 
Peturn 

Procedure Bloc3 
For IX-1 To 6 

A*—Mot * ( Ran d orn ( 3601 + 1 ) 

XX-Random(2) 

If XX-1 

AX-Asc(Left*(A$, 1 )) 

If AX< 123 And AX>96 

A*=Right* CA*,Len(A*)-l) 

A*—Chr*(AX-32>+A* 

Endi f 


Menu FlagmenuX+10,0 
Menu MX,1 
F 3 ai g m e n u X—M X -10 
F in_de_bloe !—--1 
End i f 
If MX-16 

Gosub F i n_de_pr ogr anime 
Endi f 
If MX-19 
Gosub Aide 
Endi f 
Menu Off 
Ret urh 

Procedure F in _d e_p r og r amme 
Deffill 1,0 
Defline 1,1 
Pbox 215,137,411,233 
Box 218,140,408,230 

F'rint At (29, 10) ; " 1 ) Retour au programm 
e " 

F’rint At (29, 11 ) ; "2) Retour a Basic " 

F'rint At (29, 12) ; "3) Retour a Gern" 

Print At (29, 14) ; " 1 '2 3" 

Defline 1,3 

Bo.x 260,208,275,226 

Défiine 1,1 

Box 300,208,315,226 

Box 340,208,355,226 

IX-0 

Do 

M o u s e S ounis x X,SourisyX,SouriszX 
If S o u r i s x X < > S o u r i s x 1X Or S o u r i s y X < > 
SourisylX Or SouriszX 
If Souris !=0 


► 
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Defmouse 0 
Souris î ~~1 
El se 

T emps7.=Timer 

Sü ur i s x 17.--Sour i sx% 

Sour i s y 1 %-=Sour i s y 7. 

Endi f 
El se 

If Souris ! 

If Int ( (Ti mer -TempsX > /200 ) 10 
Defmouse Souris_vide$ 

Souris !=0 
Endi f 
Endi f 
Endi f 
A$-Inkey$ 

If A$="1" Or A$=Chr$(13) Or ((Souris 
x‘/.>260 And Sour i sx7.<275) And ( Sour i sy'X>2 
08 And Sour isy7.< 226) And Sour i sz7.= l ) 

I7.= l 
End i f 

If A$="2" Or C (Sour i sx7.>300 And Sour 
i s x "/.< 3 15 ) An d ( Sour i sy 7. >208 An d Sour i sy7. 
<226) And Souriss7=1) 

I7.=2 
Endi f 

If A$= "3" Or ((Sourisx7.>340 And Sour 
isx7.<355) And (Sour i sy%>208 And Sour i s y 7. 
<226) And Sour i sz%= 1 ) 
r/.=3 
Endi f 

Exit If 17. 

Loop 

If I7.= l Th en 

Menu Fi agmènu7.-i-10, 0 
Menu Off 
Sput Titre$ 

Dicte$="" 

Dictee$="" 

Fl agmenu7.=ü 

Ar r ay f i 11 Fl agtouche7. ( ) , 0 
Endi f 

If I7.=2 Then 
Qosub Fenetre 
Edit 
Endi f 
If 17.=3 

Qosub Fenetre 
System 
Endi f 
Ret urn 

t 

Procedure Fenetre 
Cl ose w 0 
For I7.=0 To 200 

Box 17., I7., 640-17., 400-17. 

Next 17. 

Graphmode 3 

Deftext 1,1,0,32 

Texf> 200,200, "A BIENTOT !!!" 

Pause 40 
Return 

' routine d'initialisation 


Procedure Initialisation 
Vsync 
Openw 0 


Hi deriï 

Qosub F'repare_menu 
Qosub Affiche_titre 
Qosub Clavier_alpha 
Qosub Main 
Defmouse 2 
Showm 

Qosub Variables 
Defmouse 0 
Return 

t 

Procedure Prepare_menu 
Dim Liste$<!50) 

For 17 .-0 To 50 
Read Liste$CI7.) 

Ex i t If Li st e‘J> ( 17. ) -• " sü# " 

Next 17. 

Menu Liste$() 

Data Bureau , Chic et choc ,-- 

^ — f ~ f — f — j, ~ f —, " " 

Data Menus , Niveau 1 (Fl), Niveau 
2 (F2), Niveau 3 (F3), Niveau 4 (F4), 
Niveau 5 (F5) 

Data Fin (F6),"" 

Data Aide , HELP!!! (F7) 

Return 


' routine d'affichage du titre 


Procedure Affiche_titre 
Deffill 1,2,7 
Pbox 2,2,610,58 
Pbox 2,65,610,120 
Qosub B1anc_espace_de_traval 1 
Qosub Ec ris_tit re 
Graphmode 1 
Ret urn 

f 

Procedure Blanc_espace_de_travai1 
Deffill 1,0 
Prbox 12,5,620,61 
Prbox 12,68,620,121 
Ret urn 

f 

Procedure Ecris_titre 
Graphmode 2 
Deffill 1,2,1 
Prbox 12,5,620,61 
Prbox 12,68,620,121 
Deftext 1,13,0,32 

Text 102,42,"Clavier Chic, clavier c- 
c " 

Deftext 1,1,0,13 

Text 35,87,"un logiciel d'apprentissi 
e du clavier alphanumerique" 

Deftext 1,5 

Text 1 15,112,"conu et écrit par Alai 
Hurtig en février 1337" 

Return 

' affichage clavier alphanumérique 

Procedure Clavier_alpha 
Dim Touche/C(77,2) 

Deffill 1,2,4 
Pbox 0,130,693,333 
Deffill 1,0 
X17.=3 










F 


y 1 150 

X2*/.=27 
Y2'/.= 172 
Av"/.=32 

F 

B’/.-O 
A'/.= 15 
Nt“/.= 13 

3osub Dessine 
J7.»<r/.#321+A'/. 

K7.= 12 

' rectangle 

Pbox Xl'/.+J'/., Yl'/.+B'/., X27.+J7.+K*/., Y27.+B7. 

F 

’ deuxieme ligne 

3'/.=27 

J'/.=A7. 

’ rectangle 

Pbox X1"/.+J'/., Yl'/.+B*/., X27.+J7.+K7., Y27.+B7. 

F 

Nt“/.= U 
A'/.=K'/.+32+J'/. 

3osub Dessine 
P17.= 1'/.*32+A7.+X 17. 
jy.= Cr/.+ ll*32+A7. 

Pbox X1 7.+JV ., Y17.+B7., X27.+J7., Y27.+B7. 

» 

' troisième ligne 

B'/.=27*2 

A'/.= 15 

’ rectangle 
J 7.=A 7. 

<7.=30 

Pbox X17.+J7., Y17.+B7., X27.+J'/.+K'/., Y27.+B7. 
' tabulateur 
Touche7.<50,0) -X17.+J7.+ 13 
'ouc he7. <50,11 =Y17.+J7.+25 

t 

Nt7.= 10 

A7.=25+A7.+K7.+7 
3osub Dessine 
J'/.=Pl'/.+29 

Pbox X 17.+J7., Y17.+B7., X27.+J7., Y27.+B7. 
"ouche7. CL7., 0)=X17.+J7.+9 
Touche7.CL7., 11 «Y 17.+B7.+13 
_7.=L7.+ 1 

F 

’ quatrième ligne 

B7.=27*3 

A7.-15 

' rectangle 
J 7.=A 7. 

K7.= 10 

=box X 17.+ J7., Y17.+B7., X27.+J7.+K7., Y27.+B7. 

' shift gauche 

"oucheY<51,01 =X 17.+J7.+14 

■ouc he7. <51,11 =Y17.+B7.+13 

F 

Nt'/.= 10 

A7.=25+A7.+K7.+7 
Gosub Dessine 
J7.= < 17.432 ) +A7. 

<7.= 10 

’ rectangle 

Pbox X 17.+J7., Y17.+B7., X 27.+J'/.+K'/., Y27.+B7. 

’ shift droit 

"ouche'/. <52,01 =X 1 '/.+J7.+12 

ToucheY. <52, 1 1 =Y17.+B7.+13 


’ cinquième ligne 

A7.=A7.+5 

B'/.=4*27 

Pbox A7., Y17.+B7., A7.+40, Y27.+B7. 

’ alternate 
Touche7.<53,01 =A'/.+ 12 
ToucheY. <53, 11 =Y1“/.+B7. + 13 
A%=A7.+47 

Pbox A*/., Y17.+B7., A7.+280, Y27.+B'/. 

’ barre d'espace 
Touc he7. < 54,01 =A7.+130 
ToucheY. <54,11 ==Y 17.+B7.+13 
A7.«A7.+280+7 

Pbox A7., Y17.+B7., A7.+40, Y27.+B7. 

’ Return 

Data 445,177,470,177,470,226,430/226,4 
30,204,445,204,445,177 
Dim X7.C61, Y'/.C&l 
For I7.=0 To 6 
Read X 7. <17.1 
Read Y7.CI7.1 
Next 17. 

Polyfill I7.,X7.<1, Y7.C1 
ToucheY. < 55,01 =455 
ToucheY.<55, ll=2i0 
’ pave numérique 
yç=5§ 

Â'/.=523 

Nt7.=3 

Av7.=2B 

For K7.=0 To 2 
B'/.=27*K'/. 

Gosub Dessine 
Next K7. 

B7.=B7.+27 

NtX=2 

Gosub Dessine 
J7.= <I7.:tAv7.1+A7. 

Pbox X17.+J7., Y17.+B7., X27.+J7., Y27.+B7.+27 
L7.=75 

ToucheY. <L'/., 01 =X17.+J'/.+8 
ToucheY. < L7., 11 =Y 17.+B7.+40 
B7.=B7.+27 

J7.= < 17.-11 *Av7.+A7. 

Pbox X17.+J7.,Y17.+B7., X27.+J'/., Y27.+B7. 

L7.=74 

Touche*/.<L7., 01 =X 17.+J7.+8, 

Touche'/.CL'/., 1 l=Yl"/.+B'/.+13 
J 7.= < 17.-31 *Av"/.+A'/. 

Pbox X1 y.+jy ., Y17.+B7., X27.+J7.+27, Y27.+B7. 
L7.--73 

Touche'/. CL7., 01 =X 1 '/.+J7.+22 
Touche'/. <-L7., 11 =Y 17.+B7.+13 
Ret urn 

Procedure Dessine 
For I7.=O To Nt'/. 

J'/.= < I7.*Av'/.l +A7. 

Pbox X 17.+J*/., Y17.+B'/., X27.+J'/., Y27.+B7. 

Touc h e'/. < L'/., 01 = X1 '/.+J7.+9 
Touche'/.CL"/., 11 =Yl"/.+B'/.+ 13 
L‘/.=L'/.+ l 
Next 1'/. 

Return 

» 

Procedure Main 
A'/.=40 

Get 265,295,395,400,Main1$ 







Dim Mainx7. CA7.1 , MainyX (AX) 

For I7.=0 To A7. 

Read Mai n xX < I XI 
Raad MainyXC 17.) 

Next 17. 

Fol yf i 11 17., Mai nxX (. ! , Mai ny7. ( 1 
Data 120,400,115,370,115,350,105,305,1 
07,303, 111,301,115,303, 125,340 

Data 127,341,129,341,130,339,130,287 
Data 132,285,136,283,140,285,144,340 
Data 146,341,148,341,149,339,153,280 
Data 155,281,159,279,163,281,165,340 
Data 167,341,169,341,170,339,175,285 
Data 177,284,181,282,186,285,185,345 
Dat a 187,347,189,347,193,343 
Data 205,313,208,310,213,311,217,315 
Data 197,367,190,400 
For I7.=0 To 40 

Mai n x7. C17. ) =485-~Mai n x7. < 17.) 

Next 17. 

Pol y fi 11 17,, Main x 7. C1 , Mai ny7. C 1 
Get 265,295,640,400,Main2$ 

Return 

Procedure Variables 
Nombre: 

Dim Nombre Cil) 

For I7.=0 To 11 
Read NombreCIXl 
Next 17. 

Data 1,12,1,9,14,-32,8,21,18,20,9,7 
Signe: 

Swap Touc h e7. ( 56, 0 1, Touc h eZ c. 0,0 1 
Swap T ouc he7. ( 0, 11 , T ouc he7. ( 56, 1 ) 

Dat a &jS,gu, y ,(,|,e, 1 , 5 ,à,), — 

Data a,z,e,r,t,y,u,i,o,p, A ,$ 

Dat a q , s, d, f, g, h, j, k, 1, m, ù, # 

Dat a <,w,x,c,v,b,n,vi,;,:,= 

Data 1,2,3,4,5, 6 ,7, 8 ,9,0, °,_, 

Data A, Z,E,R, T, Y, U, 1,0, P,4 , 

Data Q, S, D, F, G, H, J, K, L, M, 7., ! 

Data <,W, X,C,V,B,N,?,.,/,+ 

Data *,§,£,» 

Data é,tt” 

Data J , J , J 
Dat a â, ê,î , o, ô 
Data a, ë,'1,6, U 
Chiffr e: 

Dat a C, !, / , $, 7, 8 , 9, -, 4, 5, 6 , +, 1,2, 3, 0, . 

For I7=0 To 115 
R;ead A$ 

If A$="gu" 

A*=Chr$(34! 

Endi f 

If A$="vi" 

A$=Chr$ < 441 
Endi f 

Let,Lettre$=Lettre$+A$ 

Next 17. 

For I7.= l To 18 
Read A$ 

Chi f fr e$=Chi f fre^>+A$ 

Next 17. 

Touche7.< 1, 2) = 1 
Touche7. (2,2!- =2 
Touche7.<3,2) =3 
Touchez. <4,2) =4 
ToucheZ. <5,2) =4 


Touc h eZ. ( 6,2 ) =7 
ToucheZ.<7, 2) =7 
T oucheZ. C 8,2 =8 
ToucheZ.O, 21=9 
ToucheZ. ( 10, 2') =10 
ToucheZ.Cl 1,2) =10 
ToucheZ. C12,2) = 10 
ToucheZ. C13,2 ) = 10 
ToucheZ.C14, 2) =1 
ToucheXC15,2)=2 
ToucheZ. C16,2) =3 
ToucheZ. Cl 7,21 =4 
ToucheZ. Cl 8,21=4 
ToucheZ,C19,21 —7 
ToucheZ C20,21=7 
ToucheZC21,21=8 
ToucheZ. C 22,21 =9 
ToucheZ.C23,21 =10 
ToucheZ. C24,21 = 10 
ToucheZ. C25,21 =10 
T ouc heZ. C 26, 21 = 1 
ToucheZC27,21=2 
ToucheXC28,2!=3 
ToucheZC29,21=4 
T ouc heZ. C 30,21 =4 
ToucheZ. C31,21=7 
Touc h eZ C 32,21=7 
ToucheXC33,21=8 
T oucheZ C 34,21=9 
ToucheZ.C35,21 = 10 
T ouc heZ C 36,21=10 
ToucheZ. C37,21 =10 
T oucheZ C 38,21 = 1 
ToucheXC39,21=1 
T oucheX C 40,21=2 
ToucheZC41,21=3 
ToucheZ. C42,21=4 
ToucheZC43,21=4 
T ouc heXC 44,21=7 
ToucheZC45,21=7 
ToucheXC46,2!=8 
ToucheXC47,21=9 
Touc h eZ C 48,21=10 
ToucheZ.C56,21 =1 
ToucheZ C50,21=1 
ToucheXCS1,21=1 
T ouc heX C 52,21 = 10 
ToucheZ. C53,21 =2 
T oucheZ. C 55,2 T= 10 
NumeroX=57 
For I7.=0 To 2 
F or KX=0 To 3 

Inc NumeroX 

ToucheZCNumer oZ, 21 =7-i-KZ. 

Next KZ. 

Next IX 
For I7.=0 To 1 
For KX=0 To 2 

Inc NumeroX 

ToucheZ(NumeroX,21=7+KX 
Next KZ. 

Next 17. 

" position des doigts 

Data 108,310,132,290,155,287,178,292. 

08,318 

Dim DigitXCIO,1) 

KZ.=9 

For IX=1 To 5 









Read Di gi t V. ( IV ., 0) 

Read Di qi t7. ( 17., 1 ) 

Digit'/.C ï7.+K7., 0 )=480-Digi 17. C17., 0) 
Diqit7. (I7.+K7., l)=Digit7.( 17., 1) 

Sub K7., 2 

Next 17. 

Dim Mot$(360) 

For 17,-1 To 360 
Read Mot $(17) 

' I f Le f t $(Mot $(17),2)-"yy" 

A7.=Len ( Mot $ (17.) ) -4 

Mot $ CI V .) =Chr $ ( 34 ) +Mi d$ ( Mot $ ( 17. ) , 3, 
47. ) +CH r $ C 34) 

Endi f 

Next 17. 

Dim Phrase$(32,1 ) 

For 17=1 To 32 

Read Phr ase$ ( 17,0) 

Read Phr ase$ C17., 1 ) 

Next 17. 

Dat a sel, mi e, pai n , croûte, essai , avi's, r o 
ute, jours,mule 

Data leurrer,1eurrons,humer,sentir , 1' o 
peur,rame,lier 

Data rage,joie,humeur,foie,foins,fois, 
ioi , moul e 

Data le, la, les, vous, nous, et es, i .1 s, el I e 
s,tu,je,gar e 

Dâta glisse,ski,solei1,1asso,gogo,papa 
,serpent,dorer 

Data jaser,jasiez,jazz,musique,mozarti 
en, marxiste 

Dat a liberal., criti que, compat i ssant, wag 
pns,riz,azur 

Data soeur , fr.er e, poule, rnoui lie, mai 11 eu 
,qui,plage 

Datai psychologi e, phrases, di scours, typo 
graphe,pays 

Datai photographie, daguerotype, joute, co 
bat,four 

Datai gemme, quel , gruger , ardoi se, magi que 
,fille,garon 

Data pelouse,bal 1e,gazon,fugue,concert 
,symphonie 

Dat-a fl eur s, speaker , shakespear i en, a jus 
-ez,ajustions 

Dat a lettre,tr ansport,nanisme,tyroide, 
en fanter 

Datai accouchement, Polaroid, instantanée 
.pension,fami lie 

Data fi nal, defier,vendanges,froi de,xyl 
aphone,sentiment 

Datai haine, amour , magi str ait, juge, instru 
: t i on 

Datai condamne, pend ai son, geol e, par ki ng, 
sal on 

Datai voi turette, cycle, annee, rose, jacin 
;he,ananas 

Data fruits,demain,aujourd'hui,1"aband 
on,vos 

Dat ai vexe, spécial iste, ete, hi ver , tax i me 
tr e 

Datai mai t r e, met r es, met r eur , luxe, interv 
iew,c1ownesque 

Data whisky,cognac,vodka,twist,ye-ye,e 
xc1usivites 

Data dextre,senestre,exc1usion,fixerio 

■îs, t abac 


Data agreer,reste,cinéma,délégué,kepi, 
manteau,defere 

Data ferme,fermeture,ambigue,noel,yya. 
1 ’assautyy 

Data yyedition spec i ail eyy, yya profiter 
yy,yymaitre a penseryy 

Data yybon jour yy, 1 r estoquade, 1 '.ami t i e, 
1 ' i 11 usion 

Data 1 ' abandon,1'estime,1 9 ut opie,1'uti 
1 i te 

Data breve,exces,guere,pere,chèques,ch 
equier 

Data complété,près,lésions,mere,(sous 
c on d i t i on ) 

Data (a ce propos),(histoire!) 

Data (par parentheses),Cconfidentielle 
ment ) 

Data (coucou!!!),baissiez,oeufs,fete,1 
aic,aieul 1 e 

Data treve,diner,pâte,cote,hôtel,gite, 
mure,août,coût 

Data 1'ouie,abime,egoisme,tbeat r e,paie 
n,bergere 

Data phare, mare, tard, 1 arc! on s, char , bour 
rasque 

Data becasse,canard,buffet,penderie,bo 
uquet 

Data narcisse,caric attire,dessin,confor 
table,fauteuil 

Data disque, gaiette, furnee, cigarette, di 
thyrambique 

Data aureole,extenue, affûter, figue,sty 
1 e,cal 1 igraphie 

Dat a ec riture,peinture,klaxonner,kiosq 
ues,géographie 

Data congel ateur , mathemat i que, ar i thrnet 

ique,pul 1 ul er 

Dat a jur i d i c t i on, j uven i 1 e, an c i en , ag ees 
, mi ser e’, bonheur 

Data kabyle,mystique,kyste,kaolin,kafk 
ayen,kaki 

Data kaléidoscope,garonnet,1eon, jacher 

e, epi 

Dat a mi evr e, 1 ar moy ant, rnan i er ees, dec cur¬ 
age ,remaniement 

Dat a desar me,adver sit e,nebuleuse,cornet 
es,matamore 

Data guerrier,armee,inscription,nombr i 
1 ,monde 

Dat a ose i 11 at i on, goémon, folie, poe.si e, d 

etraquer 

Data magnifiee,separation,orniere,disp 
araitre 

Data wharf,saumâtre,vacciner,vegeter,h 
aiwaien 

Data wagnerisant,an xieuse,wapiti,xenop 
hobe,sandwich 

Dat a watt,wal1 on,walkyrie,whist,sweat- 
shirt, kwas 

Data excuse,excitation,perplexe?,oxyge 
ne?,deballonne? 

Dat a degon fie?,exc uses...,1 aicisons !,p 
oele,(excommunie) 

Data (caiman), capharnaum, zezayement, ya 
cht,voyageuse 

Datai voyou, voyante, payez ! , psychanal yst 
e, motoc yc 1 et t e 

Data tyrannie,tympan,tuyau,triptyque,s 
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yncope 

Data synchronisation,synoptique,zazou, 
riziere,zephir 

Data zoo,synagogue,zele,zero,zigzag,as 
sez,chimpanze 

Data zebrt,zeste,citron,1 a,quant—a—soi 
,plus-value 

Data pied-a-terre,vis-a-vis,globe-trot 
ter,a cote 

Data sur,renforons,attenter a la natio 


n,soi—meme 

Dat a c'est —a-dire,curacao,c ommerc an t,c 
harancon 

Data balancoire,agaçantes,arton,fiança 

i 11 es 

Data Le repos a couronne sa vie; il do 
rt enfin entre midi et 

Data deux heures de 1'après-midi. 

Data Notre siecle est celui du progrès 
. La mécanique quantique 
Data en est le témoin. 

Data "La mariee, fort elegante dans sa 
robe d'organdi, plissait" 

Data des yeux en regardant le soleil ! 


Data 

phone? 

Data 

Data 

arche: 

Data 

Data 


-vous 

le 

■ t a 


de son n° de tele 


spécialement bon m 


Que pensez- 
Inutile de 
"préciser, 

Ce poisson est 
profitez en 

pour faire une soupe l’origan. 
Nous n’acceptons pas les reglemen 
ts en liquide; une 
Data observation 

de. 


fine nous en a dissua 


Data Ou la Bulgarie va-t-elle se niche 
r? Et quand re-verrons 

Data nous les fraises sauvages? 

Data Examinons cette panne et trouvons 
-en l'origine: je pense 
Data que c’est mécanique. 

Data Le 1040 ST bénéficié de la techno 
logie 16/32 bits du 

Data 68 000 de Motorola. C'est un gage 


Data Les P.T.T. ont fait un tabac avec 
1eur promotion, Pas 
Data moins de cent dix mille Cl 10 000) 
personnes ont adhéré. 

Data Les 3/5 se trouvent en Suisse. Al 
lez les chercher en 

Data "wagon, et vous serez gracie." 
Data "La leçon de la ligne bleue des V 
osges, c’est d’y penser” 

Data toujours mais de n’.en parler jarna 
is. 

Data Ce petit port de pécheurs empesta 
it le poisson pour ri 

Data et la poisse y posait son haleine 
Data Mon pull-over violacé reste parmi 
le plus beau souvenir 
Data de cette histoire d’amour. 

Data "Le raton—laveur,ruse et précis, 
regardait le chasseur" 

Data en souriant de ses molaires acere 
es. 

Data "Vagues étaient les vagues. Vigou 
reux, le vaguemestre" 

Data mol do—valaque vaquait en mugissan 


t. 

Data "Les ardoises s’accumulant, l’Ire 
quoi s saoul pris un" 

Data wagon et zézaya sur les boogies. 
Data L'etre et le néant. Qui dira mi eu 
x la dialectique 

Data qui nous entrai ne aux songes? 

Data La rumeur voudrait que l'on rie _ 
ux bals de cette pagode! 

Data "Nous ne saurions y penser, sache 
nt ce que nous savons..." 

Data "Les bebes, bavards et habilleurs 
, braillaient en baillant" 

Data "et buvaient du bacao, boisson b. 
zarre issue du Prou." 

Data "Le xenophon, so^te de xeres exac 
ere quand a sa qualité," 

Data exige un soin rigoureux. 

Data "Les zozos, zazous complets, zozo¬ 
tant de plus belle," 

Data allaient au zoo admirer les nenup 
hars azurs. 

Data "Le kilométré cent, enkyste d'eps 
ves, sent la vodka" 

Data "et le rhum, et le cacao au kercs 
ene. " 

Data Ou admirer les divers éléphants? 
Mais voyons! 

Data Chez les Pygmes: au pays du Ki 1 1 
andjaro. 

Data Les humeurs appréciés de l’hote ; 
u chat sont compliquées 

Data d'un du non-rembourse. 

Data "Le chateau de sable sitôt renver 
se, il s'enfuit en" 

Data "courant, craignant la vengeance 

II 

Data "L'outre de glaise était utile, 
ornpte tenu des rudes" 

Data conditions climatiques qui pres.. 
erent a 1'expedition. 

Data "Avec le president, les bouliste; 
intrépides jouèrent !" 

Data Du? Sur le terrain prete.par un = 
dmirateur. 

Dat a Noël! Sur l'arbre décoré de milia 
et mille boules 

Data "scintillantes, des cadeaux att:- 
aient les regards." 

Data Mais qui y voyait une attitude -a 
bigue? Un fâcheux 

Data contre-temps l'a seulement ernpecK 
e de venir... 

Data Les troubles sociaux ne doivent . 
as vous effrayer; ils 

Data seront termines lors des virees . 
e ce wattrnan. 

Data "Quelques soient vos prétentions, 
elles seront honorées" 

Data dans 1 a limite des places dispor. 
blés. 

' Transformation des données du Spritr 
1 en chaine de caractères 
Let Curseur 1$=Mki$ C0)+Mki$ CO)+Mki$C0 
Let Curseurl$=Curseur1$+Mki$(0)+Mki$ 

) 

For I'/.= l To 16 

Read Avant,Arriere 
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Let Curseurl$=Curseur1$+Mki$(Arriere 
;+Mki $ (Avant) 

Next 17. 

Data 32S9Ê,0,43648,0,65408,0,21760, 0,0 
,0,0,0,0,0,0,0 

Data 0, 0,0, 0,0, 0,0,0,0,0, 0, 0,0, 0,0, 0 

i 

i ’ Transformation des données du Sprite 

en chaine de caractères 
i Let Curseur2$=Mki $ CO)+Mki$ CO)+Mki $ C0) 

Let Curseur2$=Curseur2$+Mki$(0)+Mki$<1 

i ) 

For I 1 To 16 

Read Avant,Arriéré 

Let Curseur2$=Curseur2$+Mk.i $ CArr i ere 
I )+Mki*(Avant) 

Next 17. 

Dat a 65472,0,32832,0,32832, 0,32832,0,3 
' 2832,0,32832,0,32832,0,32832, 0 

Data 32832,0,32832,0, 32832, O,32832, 0, 3 
■ 2832,0,32832,0,32832,0,65472,0 

7 

i ’ Transformation des données de la sou 

'is/vide en chaine de caractères 
i Let Sour i s_vide^=l v lki $ C1 ) +Mki $ C1 ) +Mki $ ( 

1) 

Let Souris_vide$=Souris_vide$+Mki$(0)+ 
Mki % C1 ) 

r For I7.= l To 16 

Read Arriéré 

I Let Souris_vide$=Souris_vide$+Mki$CA 

rriere) 

Next 17. 

For 17,= 1 To 16 
Read Avant 

Let Souris_vide$=Souris_vide$+Mki$ CA 
vant ) 

Next 17. 

Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

Dat a 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0 

Col 7.=28 

Lignel7.=25 

Ligne2X=50 

Ligne37.=8 7 

Ligne4Z=107 

Dim Flagtouche7.C2) 

Deftext 1,0,0,13 
Sget Titre$ 

Mouse Sour i sx 17., Sour i sy 17., Sour i sz7„ 

Souris !=-1 
Temps7.=Ti mer 
Return 


’ procedure d’écran d’aide 


Procédure Aide 
Sget Ecran$ 

If Aide! 

Vsync 

Put 20,20,Aide$ 
Goto Fin_aidel 
Endi f 
Hi dem 

Défiine 1,3 
Pbox 20,5,620,375 
Box 20,5,620,375 
Def1ine 1,1 
Box 28,13,612,367 


De f 1 i n e 1,3 

Box 420,345,460,363 

De f 1 i n e 1,1 

Pbox 420,345,460,363 

Deftext 1,1,0,13 

Text 428,360,"G K" 

Gr aphmode . 2 
Box 80,345,300,363 
Deftext 1,0,0,4 
Text 83,360,"CF7)" 

Deftext 1,0,0,13 

Text 112,360,"Pour en savoir plus..." 
Deftext 1,13,0,13 

A$="Pour bien utiliser le logiciel" 
Text 200, 30, A* 

Deftext 1,0,0,13 

Text 40,50,"-* Utilisez immédiatement v 
os dix doigts, afin de ne pas prendre" 
Text 40,65," de mauvaises habitudes." 
Text 40,80,"- Ne regardez jamais ni le 
clavier ni vos doigts." 

Text 40,95,"- La touche majuscule doit 
etre frappee avec l’annulaire" 

Text 40,110," de la main opposée a ce 
lie qui servira a la frappe, de la lettre 

II 

■ 

Text 40,125,"- La barre d’espace se fr 
appe avec le pouce de la main opposée" 
Text 40,140," a celle qui a servi a f 
rapper la derniere lettre." 

Text 40,155,"Vous avez accès en perman 
ence aux differents menus." 

Text 40,170,"Ne négligiez aucun exerci 
ce. Ils sont tous indispensables" 

Text 40,185," pour bien progresser Cm 
eme quand ils semblent stupides!)." 

Text 40,200,"Les signes J , J et J signi 
fient Return, Tabulateur et Escape." 

Text 40,215,"Trois types d’aide vous s 
ont fournies:" 

Text 40,230," -Le dessin d’un clavi 
er 'muet (sans les touches de curseurs)" 
Text 40,245," et des mains." 

Text 40,260," -Soulignement de la 1 
ettre qui doit etre frappee (sauf au niv 
eau 6)" 

Text 40,275," —Indication de la pos 
ition du doigt et de la touche active" 
Text 40,290," (sauf aux niveaux 3 

et 5" 

Deftext 1,8 

Text 40,305,"La position des mains:" 
Deftext 1, 1,0,6 

Text 215,305," Les coudes près du corp 
s, les mains sont posées" 

Text 40,314,"au dessus du clavier. Les 
pouces sont sur la barre d’espace, les 
doigts" 

Text 40,323,"de la main gauche sur les 
touches ’q’, ’s’, ’d’ et ’f’, ceux de 1 

a main" 

Text 40,332,"droite sur les touches ’j 
’, ’k’, ’l’ et ’m’." 

Text 40,341,"Apres la frappe, les doig 
ts reviennent a leur place." 

Get 20,20,620,395,Aide* 

Deftext 1,0,0,13 
Fin aidel: 
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CA7M20 And 
And C7.-1 ) 


A7.< 468 


Showrn 

Do 

Mouse Sûur i sx"/., Sour i sy7, Sour i sz7 
If Sour i sx7.< >Sour i sx 17. Or Sour i sy'/.< > 
Sou r i s y 17 □ r Sour i sz X 
If Souris !=0 
Defmouse 0 
Souris !=-l 
El se 

Temps7.=Ti mer 

Sour i sx 17.-~Sour i sx7. 

Sour i sy 17.=Sour i sy7. 

Endi f 
El se 

If Souris ! 

If Int C CTi mer~Temps%) /2Ü0>=10 
Defmouse Souris_vide$ 

Souris !=0 
Endi f 
Endi f 
Endi f 
A$=Inkey$ 

Mouse A7.,B7,C7. 

If A$=Chr$(13) Or 
And B7.>345 And B7.<36G 
Goto Fin_aide 
Endi f 

If CA7.>80 And A7<300 And B7>345 And 
B7.<363 And C7.= i > Or CLen < A$> =2 And A$=Ch 
r$C0)+Chrir. C65.1 ) 

Goto Aide2 
Endi f 
Loop 
Ai de2: 

If Aide2 ! 

Vsync 

Put 25,32,Aidel$ 

Goto Fin_aide2 
Endi f 

Graphrnode 1 
Hi déni 

Pbox 25,32,635,376 
Défiine 1,3 
Box 298,353,328,370 
Pbox 298,353,328,370 
Défiine 1,1 
Deftext 1,1,0,13 
Text 302,367,"0 K" 

Graphrnode 2 
Deftext 1, 1,0,6 
Text 40,45,"Ni veaux 1 et 
copier " 

Text 40,55, "Ni veau 2; 
de lettres et de signes de 
Text 40,65,"Niveau 4: 
n du pave numérique" 

Text 40,75,"Niveau 5: 
rases recopier" 

Deftext 1,1.2,0,13 

Text 40,95,"Le choix du niveaux et des 
differentes options" 

Deftext 1,0,0,13 

Text 415,95,"se fait indifféremment av 
ec " 

Text 40,110,"la souris ou le clavier C 
touches de fonction ou touches alphanume 
riques)." 

Deftext 1,12,0,13 


s 6 mots re 

5 groupes 
onc t uat i on " 
Uti1isatio 

Courtes ph 


Text 40,125,"La souris" 

Deftext 1,0,0,13. 

Text 120,125,"s'efface au bout de dix 
secondes si on ne l’utilise pas.-" 

Text 40, 140,"El le se rallume quand on 
la déplacé ou quand on clique." 

Deftext 1,12,0,13 

Text 40,155,"La saisie du texte et les 
correct i on s" 

Deftext 1,0,0,13 

Text 40,170,"Il y a deux moyens de se 
déplacer dans le texte:" 

Text 40,185,"Avec les touches de curs= 
ur(droite et gauche). Les touches de eu- 
seur plus" 

Text 40,200, "la toucher ’ Controi ” rame- 
ent le curseur au début ou a la fin de 1 
a ligne." 

Text 40,215,"La touche ’Backspace’ ef- 
ace la lettre avant le curseur, ’Delete’ 
celle" 

Text 40,230,"qui est sous le curseur, 
’lnsert’ créé un blanc sous le curseur, 
Text 40,245,"'Clr/Home’ efface la lig- 
e. " 

Text 40,260,"On passe a la ligne suiv : 
nte en appuyant sur ’Return’. Cette tou: 
he" 

Text 40,275,"n'est prise en compte qu= 
si la ligne est correctement orthograp- 
i ee. " 

Deftext 1,12,0,13 

T ex t 40,290,"Les acc en ts circ on f1e xes 

et trémas:" 

Deftext 1,0 

Text 40,305, "Ces accents n’appeiraissc- 
t a l’écran au dessus de 1 a lettre qu’a: 
res" 

Text 40,320,"la frappe d’une voyelle. 
En cas de frappe de consonne Cet au nive 
au 1 , " 

Text 40,335,"si ce n’est pas la bonne 
voyelle qui a ete frappee) apparaissent 
Text 40,350,"d'abord l'accent, puis la 
lettre frappes." 

Graphrnode 1 

Get 25,32,635,400,Aidel$ 

Aide2! ——1 
Fin_ai de2: 

Showrn 

Do 

Mouse Sour i s x 7., Sour i sy7, Sour i sz 7 
If Sour i sx7< >Sour i sxl7 Or Sourisy7.< 
Sourisyl7 Or Souris:'/. 

If Souris !=0 
Defmouse 0 
Souris !=-l 

El se 

Temps7.=Ti mer 

Sourisx17=Sourisx7 

Sour i sy 17=Sour i sy'/. 

Endi f 
El se 

If Souris! 

If Int C CTimer ~Temps7.) /200) = 10 
Defmouse Souris_vide$ 

Souris !=0 
Endi f 






End i f 
Endi f 
AT—InkeyT 
Mo use A"/., B 7., C7. 

Ex i t I f AT>=Chr$ C13) Or (A7.>298 And A 
7.<353 And B'/.>328 And B7.<370 And C7.= l) 
Loop 


Fin_aide: 
Graphmode 1 
Vsyne 

Sput Ecran* 
Showrn 
Ai de !=—i 
Return 


ATARI ST 


CONVERT 


Récupérer une image au format Néochrome 
sous Degas pose problème. L'inverse aussi d'ailleurs. 
Ce listing le fera pour vous ! 


Remarques : 

Ce programme est écrit en GFA Basic et ne fonctionne qu’en 
moyenne et haute résolution. 


t 

’ Convert CO 1987 by Y.BELTCHENKO 

t 

Cl s 

Lowh7.=GemdosC72, L: 1500) 

Lowm7.=Lowh 7.+500 
M e d h i 7.=L o w rn V. +5 0 0 
On Error Gosub Erreur 
Dim Men$C50) 

Rez7=Xbids C4) 

If Rez 7.=O 

Alert 3,"i Moyenne et Haute I Rsolut 
ions seulement ...! ", 1, "ANNULE" , B 7. 

End 
End i f 

Coe f x7.=- C Re£ 7.=0 ) -2* C Rez 7. >0 > 

Coefy7.=-24 C Rez 7=2 ) -- C Rez7.< 2 ) 

Deffn L(X7.)=X7. And 255 
Def fn HCX7.)=Int CX7/256) 

Of f lh7.=226 
Of flrr,7.-214 
Of fmd7.=214 
Restore Dat_lowh 
Gosub Instal 1 CLowh7.) 

Restore Dat_lowm 
Gosub Instal1CLowmX) 

Restore Dat_rnedhi 
Gosub Ins tal 1 (Medhi 7.) 

Imag e$=St rin g T C 32000,Ch r $ C 0 >) 
r 

Restore Dat_me 
For T7.=0 To 50 
Read A* 

Exit If A$ r - : "4" 

Men$(T7.)=A$ 

Next T7. 

Men*CT7.) = "" 

Men$CT7.+l)="" 

Menu MenTC) 


Restore Dat_cop 
For T7.= l To 24 
Read A7. 

MT==MT+Chr T CA7.) 

Next T7. 

Cl r TV. 

F-lepeat 
Inc T7. 

Until MenTCT7.) = " Neo" 

F o ma 7.=T 7. 

Menu Foma7.,l 
Cl r TV. 

Fiepeat 
Inc T7. 

Until Men* CT7) =" Moyenne Haute " 
Auth7.=T7. 

Menu Aut h7,, -24 C Fiez 7.= 1 ) -34 < Rez7.=2) 
Menu A u t h V. - 1, - 2 4 C R e z 7.= 2 ) - 3 4 C R e z 7. - 1 ) 
Menu A ut h 7.-2, -24 C Rez 7.= 1 )-34 CRez7.=2) 
On Menu Gosub Treat 
Do 

On Menu 
Loop 

Procedure Treat 

If MenîC Menu C 0) > = " Sauver" 

Gosub Save_im 
End i f 

If MenTCMenu(O)) = " Convert" 

Alert 0," ! Convert Utilitie 
! "+14$+ " ! " ,1," OK ",B7. 

Endi f 

If Men$(MenuCO))=" Quitter" 
Er7=Gemdos C73, L: Lowh7.) 

Ed i t 
Endi f 

If MenTCMenuCO))=" Degas" 

Menu Foma7., 0 
Menu FomaTi+1,1 
Sw7.= l 
Endi f 

If Men$(Menu(Ü))=" Neo" 

Menu F orna 1 /., 1 
Menu Forna/C+1,0 
Cl r Sw7. 

Endi f 
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If Meri$(Menu(O)) = " Basse Haute " 

Gosub Lowhi 
Endi f 

If Men$(Menu(0) ) = " Basse Moyenne " 
Gosub Lowrned 
Endi f 

If Men$<Menu(0)) = " Moyenne Haute " 
Gosub Medhi 
Endi f 
Menu Off 
©Menb'ack 
Return 

Procedure Lowhi 

Local But7, Imhi$, Irna$, Irnalo'/., Imhi7, Par 
rez'/. 

Cl r Par rez'/. 

Swap Parrez7,Rez7 
□n Sw7+1 Gosub Neo, Degas 
Swap Parrez7,Rez7 
If Noma$< >"" And Noma$< >"\" 

©Veltio_conv 
Cl s 

©Cadre < 640,400, 16,4, 16,4, Imhi "/.) 

Gr _27=2*Gr _47 

Lpoke Lowh’/.+Of f 1 h7., Irnal o7.+ C <80*Yb7.+ X 
b7./4) Div 16!) *16 

Lpoke Lowh'/.+Of fl h 7+4, Début'/. 

Lpoke Lowh7+0fflh7+8, F'i ndus7 
Poke Lowh%+0f f lh“/.+ 12, Gr_27. 

Cal 1 Lowh 7 
Sp ut I mh i $ 

Gosub Setpal 
Image$=Imhi $ 

Got ! =Tr ue 
Endi f 
Retur n 

Procedure Lowmed 

Local Pardescr 7, Parrez7, But"/., A7, Imhi$, 
I mai, I mal o7., I mh i 7., Par r ez 7. 

Clr Par rez 7. 

Swap Parrez7,Rez7 
On Sw7+1 Gosub Neo,Degas 
Swap Par rez 7., Rez 7. 

If NomatO"" And Noma$<>"\" 

©Veltio_conv 
Cl s 

©Cadre (640,200,16,4, 16,4, ImhiX) 
Gr_27.=H7 

Lpoke Lowm7.+0f flrr.7., Imalo7.+ < C 160*Yb7+ 
Xb7./4) Div 16)*16 

Lpoke Lowm7.+üf f lm7+4, Debut7. 

Lpoke Lowm7.+0f f lm7.+8, F'i ndus 7. 

Poke Lowm7.+0f f lm*/.+ 12, Gr _27. 

Cal 1 Lowm7. 

A7=Varptr CPal*) 

Void Xbios(6,L: A7.) 

Sput Imhi$ 

Gosub Set pal 
Image$=Imhi$ 

Got î =Tr ue 
Ertdi f 
Return 

Procedure Medhi 

Local But7., Irnh i %, Ima$, Imalo7, Irnhi7,F'ar 
rez 7. 

Par rez 7=1 

Swap Parrez7.,Rez7. 

©Degas 


Swap Par rez 7., Rez 7 
If Noma*<>"" And Norna$< >"\" 
@Veltio_conv 
Cl s 

©Cadr e t. 640,40u, 16,4, 16,4, I mh i /• ) 

Gr _27=2*Gr _47. 

Lpoke Medhi7+0f f rnd7, Irnalo7+C (80*Yb7- 
Xb7/4) Div 16) *16 

Lpoke Medhi7+0f fmd7+4, Début’/. 

Lpoke Medhi 7+0f fmd7+8, F"indus7. 

Poke Medhi 7.+0f fmd7.+ 12, Gr_27. 

Call Medhi 7. 

Sput Irnhi$ 

Gosub Setpal 
Image$=Imhi$ 

Got!=True 
Endi f 
Return 

Procedure Setpal 
A7=Varptr CPalÜO 
Void Xbios( 6 , L:A7.) 

Return 

Procedure Veltio_conv 
Ima$=Right$(Fi$,32000) 

Imalo7=Varptr <! Ima$) 

Imhi*=St ring$ C32000,Ch r $ C0)) 

Imh i 7= Var p t r C I mh i $ ) 

Return 

Procedure Save_im 
Local Sa$,Suf$,Na$ 

If Got!=True 

Sa$=Chr $ (0 ) +Chr $ <! Rez 7) +Pal $+ Images 
Suf*="pi"+Str$CRez7+l) 

Fi 1eselect "\*."+Suf*,Mid*<Noma$,2,_ 
en C Noma$)-5)+"."+Su f *, Na$ 

If Na$< >"" And Na$<>"\" 

Open "o",#l,Na* 

Pr i nt #1,Sa$; 

Close #1 
El se 
En d i f 
El se 

©Noimage 
Endi f 
Return 

Procedure Noimage 
Local But7 

Alert 3," i ! Pas d'image charge !",1," 
0 K ",But7 
Return 

Procedure Menback 
Menu Men$() 

Menu Forna7,l-Sw7. 

Menu Foma7+l, Sw7 

Menu Auth7,-2*(Rez7=l)-3*CRez7=2) 

Menu Auth7-1,-2*(Rez7=2)-3* <Rez7=1) 
Menu Auth7-2, -2* CRez7=l )--3* CRez7=2) 

Ret urn 

Procedure Cadr e(Lmax7, Hmax7, Lmi n7, Hmi n7, 
Step_x7,Step_y7, Det w7.) 

Local Mx07,My07,Mx7,My7 
Col or 0 

Defline S,2,0,0 

Xb7=0 

Yb7=0 

Lb7=Lmax7 

Hb7=Hmax7 

Graphmode 3 






If Rez V.=2 

St ep_y7.=St ep_y 7.'£4 
Endi f 

First!=Truê 
Repeat 

If Meusek=l 

Lb7.= < (Mousex-Xb7.+ l ) Div Step_x7.) :*:S 

tep_x7. 

Hb/i=< (Mousey—Yb/i+1 ) Div Step_y7.)*S 

tep_y m /. 

If Lb7.>Lmax7. 

Lb7.=Lmax7. 

Endi f 

If Hb7.>Hmax7. 

H b 7.=H ma y; 7. 

Endi f 

If Lb7.<Lmin7. 

Lb7.=Lrni n7. 

Endi f 

If Hb7.<Hmin7. 

Hb7.=Hmi n7. 

En d i f 
El ste 

If Mous*k=2 

Xb7.= (Mousex Div 5tep_x7.) :f:Step_x7. 
Yb7.= (Mousey Div Step yüO$Step y7. 
I f Xb'/.+Lb7. >320*Coe f y;7. 

X b 7.=320*Coef x 7-Lb 7. 

Endi f 
If Xb7.<0 
Xb7.=0 
Endi f 

I f YbX+Hb7.>20Ü*Coe f y7. 

Yb 7.=200*Coe f y 7.-Hb 7. 

Endi f 
I f Yb7.<0 
Yb7.=0 
Endi f 
Endi f 
En d i f 

If Ty!=Tr ue 

Box Xb7., Yb7-, Xb7.+Lb7.-1, Yb7.+Hb7.--1 
Pause 2 

Box Xb7., Yb7., Xb7.+Lb7.-1, Yb7.+Hb7.-1 
Ty!=False 
El se 

Box Xb7., Yb7.+Hb7.-1, Xb7.+Lb7.-1, Yb7. 
Pause 2 

Box Xb7. f Yb7.+Hb7.-1, Xb7.+Lb7.- 1, Yb7. 

Ty!=True 
End i f 

First !=False 
Mx07=Mousex 
My07=Mousey 
Until Inkey$=Chr $ (32) 

Début 7.=Det w7.+ (8/ ( Coe f x7.TÜoe f y7. ) ) :f: I n t ( C 
320*Coefx7.*Yb7.+Xb7.) /16) 

Findus/£=Detw7+(8/ ( Coe f yF/.TCo^f y 7. ) ):flnt ( 
C320*Coef x7.*Yb7.+ Xb7.+Lb7.-l ) / 16) 
Gr_47.=Hb7./4 
L7.—Lb7. 

H7.=Hb7. 

If Rez V.-2 

Gr_87.=Gr_47./4 
End i f 

Def1ine 1,1,0,0 
Ret urn 

Procedure Degas 


F i 1 esel ec t "\.pi"+St r $(Rez %+1) , " " , Nom 
a# 

If NoraatO" " And Noma$< >"\ " 

Qpen " i " , #1, Noma# 

Fi $=Input$ (32034, #1 ) 

Pal$=Mid$(Fi$,3, 32) 

Close #1 
Got!=Trué 
Endi f 
Return 

Procedure Neo 

Fileselect "\$.neo","",Noroa$ 

If NomatO" " And Norna$< >"\ " 

□pen "i",#l,Noma$ 

Fi#=Input$(32128, #1 ) 

Pal$=Mid#(Fi$,5,32) 

Close #1 
Got!=True 
Endi f 
Return 

Procedure Set image 
Gosub Setpal 

Image#>=Ri ght# (Fi $, 32000) 

Sput Image# 

Ret urn 

Procedure Erreur 
Close 
If Err =37 

Alert 3," ! Disque'Plein ! ",1,"ANN 

ULE", B7. 

Endi f 

Résumé Next 
Return 

Procedure Instal 1 (Adr7.) 

Read A7. 

For T7.=0 To A7.-1 
Read A$ 

Dpoke Adr7.+T7.*2, Val C "?<h"+A$) 

Next T7. 

Return 

t 

1 Data du menu 

t 

Dat_me: 

t 

Data Info, Convert 

Data- 

Data 1,2,3,4,5,6,"" 

Data Fichier, Neo, Degas,---, 

Sauver,-, Quitter,"" 

Data Outils, Basse Haute , Basse Moyen 
ne , Moyenne Haute 
Data :f: 

t 

f 

Dat_lowm: 

t 

Data 112 

Data 4DFA,OOD4,4BFA,00C4,2A9E, 4BF A,00C2, 
2A9E,4BFA,00C0,2A9E,4BFA,00B0,1A9E 
Data 207A,00AC,227A,OOAC,3A3C,000F,383C, 
000F,4242,4241,3010,0B00,6700,0008* 

Dat a 03C2,6000,0004,0382,5488,5241,0C41,. 
0004,66E6,5188,E40A,3011,0802,0000 
Data 6700,000A,09C0,5304,0900,5204,32C0, 
3011,0802,0001,6700,000C,09CQ,5304 
Data 09C0,5204,3280,5589,5544,6B00,000E, 
5345,6AAA,5088,3A3C,000F,60A2,B3FA 
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Data 004S,6700,000A,5889,3830,000F,60E4, 
4BFA,0020,5315,6700,0024,4BFA, 0028 
Dat a 0695,0000,OOAO,4BFA,0022,0695,0000, 
OOAO, 4BFA,0010,0695,0000,OOAO,6000 
Data FF58,4E75,0000,0000,0000,0000,0000, 
0000,0000,0000,0000,0000,0000,0000 


Dat_lowh: 

r 

Data 112 

Dat a 4DFA,OOEO,4BFA,OODO,2A9E,4BFA,OOCE, 

2A9E,4BFA,OOCC,2A9E,4BFA,OOBC, 1A9E 

Data 45FA,00A6,207A,00B4,227A,00B4,3A3C, 

000F,383C,000E,4242,4241,3010,OBOO 

Data 6700,0008,0302,6000,0004,0382,5488, 

5241,0041,0004,66E6,5188,4240,4241 

Data 1032,2000,1200,0201,0003,E448,E960, 

E961,8151,D3FC,0000,0050,8351,93FC 

Data 0000,0050,5544,6B00,OOOE,5345,6AB2, 

5088,3A3C,000F,60AA,B3FA,0056,6700 

Data OOOA,5489,383C,OOOE,60E4,4BFA,003C, 

5315,6700,0024,4BFA,0038,0695,0000 

Dat a OOAO,4BFA,0032,0695,0000,OOAO,4BF A, 

0020,0695,0000,OOAO,6000,FF60, 4E75 

Dat a 000F,0BO2,0C07,030A,050D,0109,060E, 

0408,0000,0000,0000,0000,0000,0000 


Dat_medhi: 

» 

Data 112 

Dat a 4DFA,OOD4,4BFA,00C4,2A9E,4BFA,00C2 
2A9E,4BFA,OOCO,2A9E,4BF A,OOBO,1A9E 
Dat a 45FA, uOAti, 20 /A, OOAS, 22 7A, O0A8,3A3L- 
000F,383C,000F,4242,4241,3010,OBOO 
Dat a 6700,0008,03C2,6000,0004,0382,5488 
5241,OC41,0002,66E6,5988,4240,4241 
Dat a 1032,2000,1200,0201,0001,E248,E960 
E961,8151,D3FC,0000,0050,8351,93FC 
Data 0000,0050,5344,6B00,OOOE,5345,6AB2 
5888,3A3C,000F,60AA,B3FA,004A,6700 
Dat a OOOA,5489,383C,000F,60E4,4BFA,0030 
5315,6700,0024,4BFA,002C,0695,0000 
Dat a OOAO,4BFA,0026,0695,0000,OOAO,4BFA 
0014,0695,0000,OOAO,6000,FF60,4E75 
Dat a 0003,0102,0000,0000,0000,0000,0000 
0000 , 0000 , 0000 , 0000 , 0000 , 0000,0000 
t 

Dat_c op: 

» 

Data 40,67,41,32,17,25,24,23,32 
Data 98,121,32,89,46,66,101, 108 
Data 116,99,104,101,110,107,111 


ATARI ST 

CURVES 

Même si vous n'êtes pas en doctorat de mathématiques, 
il vous arrive de devoir tracer une fonction. 
Savez-vous que votre ST le fait très bien ? 


Remarques : 

La saisie de la fonction à tracer est à effectuer à la fin du pro¬ 
gramme. 


» 

’ Curves CCI 1987 by Y.BELTCHENK8 

t 


St art : 

Cl s 

Rez7=Xbios (41 


Coe f x7.=- C Fez 7.=01 -2* C Rez7. >01 
Coe fy7.=-24 C Rez 7.=21 - C Rez 7.< 21 
N_pt x7.=3204Coe f x7. 
N_pty7.=200*Coe f y 7. 

Bs=l.OE+154 

Input "Limite du domaine en X 
Input "Limite du domaine en Y 
Input "Angle de vision Alpha 
Input "Angle de vision Be.ta 
Input "Eloignement 
c rint "" 


",AO,Al 
" ,BO,B1 
" , A 

h 


-rint "Calcul d’echelle en cours ..." 
E x=(A1-AO1/79 


S_y= CB1-B01/41 
A=A*Pi/180 
B=B*Pi/1B0 
Sa=Sin(Al 
Sb=Sin CB1 
Ca=Cos(A! 

Cb=Cos CB1 
Cs=Ca4Sb 
Ss=Sa4Sb 
Cc=Ca4Cb 
Sc =Sa4Cb 

If A>0 And A<180 
Goto No_swap 
El se 

Bwap AO,Al 
S wap BO, B1 
S_x=-S_x 
S_y=-S_y 
Endi f 
No_swap: 

In f_x=Bs 
In f_y=Bs 
Sup_x=-Bs 
Sup_y=—Bs 
Col or 1 
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I For J7.=0 To 41 
Y=Bl-J7.*S_y 
For I7.=0 To 79 
X=A0+I7.*S_x 
©EvalCX,Y) 

P_x=-X*Sa+Y*Ca 
P_y=-X:*Cs-Y*Ss+Z*:Cb 
P__z =-X :+:Cc -Y* Se -Z*Sb+C 
X_f=F'_x 
Y_f=P_y 
If X_ f >Sup_x 
Sup_x=X_f 
Endif 

If X_f<In f_x 
Inf_x=X_f 
Endi f 

If Y_f>Sup_y 
Sup_y=Y.„f 
Endif 

If Y_f< In f_y 
Inf_y=Y_ f 
Endi f 
Next 17. 

Next J 7. 
j Cl s 

K_x=N_ptx%/(Sup_x-Inf _x ) 
K_y=N_pty7./ <Sup_y-Inf_y) 

For J7.=0 To 41 
Y=Bl-J"/.*S_y 
X=AO 

@Eval(X,Y) 

P x=-X.*Sa+Y*Ca 

P_y=-X*Cs-Y*Ss+Z*Cb 

P_z=-X*Cc-Y*Sc-Z*Sb+C 

X_f=P_x 

y_f=p_ y 

X_p=K_x*<X_f-Inf_x) 

Y_p=-K_y# CY_f-In f _y> +N_pty7. 
For I7.=0 To 79 
X=AO+I7.:fS_x 
©Evalex,Y) 

P_ x =- X $Sa+Y# C'a 
P y=- X *Cs-Y*Ss+ Z *Cb 
P_z=-X*Cc-Y*Sc-Z:*:Sb+C 
X_f=P_x 

v_f=P_y 

N_ x =K_x*e X _ f-1nf _x) 

N_y=-K_y* e Y_ f --1 n f _y :> +N_p t y 7 . 
Draw X_p,Y_p To N_x,N_.y 


X_p=N_x 
Y_P=N_y 
Next 17. 

Next J 
A$—" " 

While A$="" 

A$=Inkey$ 

Wend 

If A$=Chr$<27:> 

Sget Image$ 

Gosub Save_i m 
Goto St art 
Endi f 

If A$=Chr$ e 32) 

Goto St art 
El se 
Endif 

Procedure Save_irn 
Local Sa$, Suf$, Na't 
Pal$="" 

For T7.=0 To. 15 

Pal $=Pal $+Mki $ e Xbi os ( 7, W : T7., W: -Il ) 
Next T7. 

Sa$=C'hr $ (0) +Chr $ eRez7.) + Pal $+1rnaqeT 
Su f %— "pi"+Str$ eRez7+11 
Fileselect "\*."+Buf$,"",Na$ 

If Na$< >" " And Na$<>"\" 

Open "o" ,#l,Na1i 
Print #l,Sa$; 

Close #1 
El se 
Endif 
Return 

Procedure Eval(X,Y) 

t 

’ fonction z=f(x,y) doit etre rentr 
ee ici 

f 

Z=12*Sin(X:> /X*Sin (Y) /Y 
• Z=-Sqre25“XfX-Y*Y) 

’ Z=15*Cos(Sqre Abs e XTX--YTY)11/Sqre X f : X 

+y*y:> 

’ Z=12*Sin(SqrCX*X+Y*Y:>1/Sqrex*X+Y*Y> 
» Z=S i n < X * X ) f : E x p e - X f : X - Y f: Y ) / S q r e X*X+Y* 
Y) 

’ Z =Sin e X1/X/eY*Y+0.5)*Cose Y)+0.5 

» 

t 

Ret urn 


ATARI ST 

FORMAT + 

Le formatage d'une disquette à partir du Dos du ST 
se révèle lent et peu souple. Ce programme vous propose 
de pallier cela : formatage au-delà de la piste 80 , 
sélection du lecteur et autres sont au menu. 


I 


' Forrnat+ (Cl 19S7 by Y.BELTCHENKO 


» 

Cl s 
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Dim Men$<501 

Pr i nt 

If 


Fr 7=Gemdos <72, L: -1 ! 

Print "Appuyez sur une touche ..." 

A 


If Fr7.< 10000 

While Inkey$="" 

It 


Alert 3," ! Mémoire insuffisante ... 

Wend 

G 


! ", 1, "ANNULE", B'/. 

Cl s 

End 


End 

Endi f 

Dec 


Endi f 

If Men$(Menu<011=" Quitter" 

If 


Buf fer 7.=Gemdos<72, L: 8500.1 

Er 7.=Gemdos ( 73, L : Buf f er 7.1 

G 


For T%=0 To 50 

Cl osew 0 

End 


F-lead A* 

Edit 

Typ 


Exit If A*="#" 

Endi f 

Er 7 


Men$ (T71~A$ 

If Men$(MenuCOl1=" Simple" 

: ., k 


Next TV. 

Menu M ds'/., 1 

If 


For T 7.-1 T o 24 

Menu M ds7.+ l,0 

El £ 


Read AM 

Clr Face7. 

] 


K$=K$+Chr $ (AT, Mod 1931 

En d i f 



Next T7. 

If Men$(Menu(0!!=" Double" 

E 


Cl r TV. 

Menu M ds"/.,0 

r 


Rlepeat 

Menu M ds7.+ l,l 

L 


Inc TV. 

Face7.=I 



If Men$(T7.1=" Disque A" 

Endi f 

F 


M_dsk7.=T7. 

If Men$(Menu<0! ! = " 80 Pistes " 



Endi f 

Menu M tr7.+ I_tr"/., 0 

Enc 


If Men$(T7.1=" 80 Pistes " 

Menu M t r 7., 1 

Er" 


M_tr7.=T7. 

Clr I tr'/. 

..W 


Endi f 

Tr k7.=Q0 

If 


If Men$<T7.1 = " Simple" 

Endi f 



M_ds7.=T7. 

If Men$(Menu <01 ! = " 81 Pistes" 



Endi f 

Menu M tr'/.+ I tr7.,0 



Until Men$<T"/.1 =" 10 Secteurs" 

Menu M tr7.+l,l 



M_sct7.=T7.-l 

I tr7.= l 



Menu Men$<l 

Tr k'/.=81 



Openw 0 

End i f 



Menu M_ds'/.,1 

If Men$(Menu<01 !=" 82 Pistes" 



Clr Face'/. 

Menu M tr7.+ I tr'/.,0 



Menu M_dsk'/., :L 

Menu M tr7.+2, 1 



Menu M_tr'/., 1 

I tr 7.=2 



I_tr7.=0 

Tr k'/.=82 



Menu M set7.,1 

End i f 



Trk7.=S0 

If Men$(Menu(011=" 9 Secteurs " 



Set7=9 

Menu M_sct’/.+ l,0 



Clr DskX 

Menu M set'/., 1 



M$=K$ 

Sct7.=9 



On Menu Gosub Treat 

Endi f 



Do 

If Men$(Menu<011 =" 10 Secteurs" 



Gn Menu 

Menu M_sct'/.,0 

: rrn 


Loop 

Menu M_sct‘/.+ l, 1 

z r-rn 


Procedure Tre>at 

Set 7.= 10 

. ea 


If Men$(Menu(01 Format + " 

Endi f 

x 


A1 er t 0, " ! " +St r i n q $ < 9, Ch r- $ < 321 1 + " Fo 

If Men$(Menu<011 =" Formatage " 

Ed 


rmat+ ! "+M*+" ! ",1,"DK",B7. 

Gosub Format 

. d i 


Endi f 

Endi f 

*. de 


If Men$(Menu<01 1=" Disque A" 

Menu Qff 

: : an 


Menu M üsk’/., 1 

Ret ur n 

:■? t C 


Menu M dsk - /.+ l,0 

Procedure Format 

: r t C 


Clr Dsk7. 

Alert 0," IValider Formatage ? '",2, 

:rt C 


Endi f 

0K! STOP", BV. 

'/.= 


If Men$(Menu(01 ! = " Disque B" 

If B7.=2 

7.= 


Menu M_dsk7.,0 

Goto Sort 

* 


Menu M_dsk7.+ 1, 1 

Endi f 

- ■ 7.= 


Dsk*/.= 1 

Pr i h t A t ( 1, £ 1 ; " For mat ag e en c our s . " 

- - S 


Endi f 

Num7.=Face7. 

" i r 


If Men$(Menu (011 =" Libres" 

Effect : 

Il r 


Al er t 0," ! "+Str*<Dfree<Dsk7.11+" Oct 

For T7.=0 To Trk7.-1 



et s Libres ! " , 1, "GK" , But 7. 

E r 7. = X b i o s ( 10, L : B u f f e r 7., L : 0, W : D s k 7., W : 

Pr 


Endi f 

Sc 17., W : TV. , W : Nurn7., W : 1 , L : 8/H87S54321 , W : 01 

*xf 


If Men$(Menu<011 =" Directory " 

Exit If Er7.<0 

7.= 


Files "V*.*" 

Next T7. 

“:r 
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If Er7.<0 

Alert 3," ! Erreur durant Formatage 

! " , 1, "ANNULE ",B7. 

Goto Sort 
En d i f 
Dec Num7. 

If Num7.=0 
Goto Effect 
Endi f 

Typ7=2+Fac'e7 

Er7.=Xbi os C 18, L: Buf fer 7., Lu &H1000000, W: T 
yp7.,W:0) 

If Trk7=80 And Set7=9 
El se 

If Set7.= 10 

Poke Buffer7+24,10 
Endi f 

N_sc 17.—Tr k7*Sc t 7* C Fac e7.+1 > 
Low7=N_sct7. And 255 
Hi gh7.=N_sct7/256 
Poke Bu f fer 7.+19, Low7. 

Poke Buffer7+20,High7 
Endi f 

Er 7.=Xbi os C 9, L : Bu f f er 7. ^ L s 0, W : Ds k 7., W : 1, W 
: 0,W: 0,W: 1) 

If Er7.<0 

Aler t 3," ! Erreur durant Formatage 


! ", 1, "ANNULE" , B 7. 

Goto Sort 
Endi f 
Cl s 

Al er t O," ! "+Str $ CDf ree <Dsk7:> )+" Octet 

s Libres ! " , 1, "QK" , But7. 

Sort : 

Cl s 

Ret urn 

» 

» 

f 

Data Info, Format+ 

Data - 

Data 1,2,3,4,5,6,"" 

Data Disque, Disque A, Disque B,—.. 

-, Libres," Directory " 

Data-*-, Quitter,"" 

Data Paramétrés,Densite ..., Simple, D 

ouble,-," 80 Pistes " 

Data " SI Pistes", 82 Pistes,- 

-, 9 Secteurs , 10 Secteurs,"" 

Data Effectuer, Formatage ,"" 

Data # 

Data 40,67,41,32,17,25,24,23,32 
Data 98,121,32,89,46,66,101, 108 
Data 116,99,104,101,110,107,111 


ATARI ST 

METEO R 

Le principal attrait de ce listing réside dans son côté 
didactique qui le rend aisément compréhensible- 


Rem *^Jt:********##**^:**** 

If L7>200 And L7.<250 

Rem ** M E T E 0 R ** 

Nn7.=2 

Rem **:****************** 

Endi f 

Rem par SÜTIRÜP0UL0S C. 

If L7.>500 And L7<800 

Rem *****X%*%******%**** 

Nn 7=1 

Rem 

Endi f 

Cl ear 

If L7>800 Or CL7>140 And L7<200> 

If Xb i os C 4 ) < >0 

Cl r Nn7. 

Edit 

Endi f 

Endi f 

If L7>50 And L7<80 

Hi dem 

Mn7.=3 

Sound 0,0 

Endi f 

Setcol or 0,0 

If L7>8‘0 And L7.< 100 

Set col or 15,8<H77 

Nn7=2 

Set col or 1,&H700 

Endi f 

Xv7.= 15 

If L7> 100 And L7.C140 

Yv7.=2 

Sound 1,15,3,2,1 

4x7.= Xv7. 

Sound 0,0 

Ay7.=Yv7. 

Nn7=l 

Cl s 

Endi f 

s r i nt 

X.7=Rnd*34+2 

Cl r F7. 

Print T ab < X7 ) ; Ch r $ <: 8<HF9 ) ; " " ; Chrf. CÏHHF 8 

For 17=1 To 25 

!) 

F'r i nt 

I f Poi nt C C Xv7-1 > T8+4, C Yv7-1 ) :f: 8 ) < >0 

Next 17. 

F7.= l 

Nn7=4 

Endi f 

For L7.= l To 3000 

X17.=Pos 


















Y17.=Cr si i n 

Print At CAx7., Ay7.-1 ) ; " " 

Pr i nt Chr $ <275 ; Chr $ C Asc C "b " ) ) ; Chr $ C65) 
Print At <Xv7., Yv7.) ; Chr $ (&HE8) 

Pr i nt Chr $ (. 27 ) ; Chr $ C Asc C " b " > ) ; Chr * C ?<HF 

Print At C2, 1 ) ; L7. 

If F7.= l 

Set col or 15, S/.H700 
For J7.= l To 20 Step 3 
C i r c 1 e X v7.*B , Y v7.*8 , J 7. 

Sound 1,15,4,5,1 
Sound 1,15,3,2,2 
Sound 0,0 
Ne x t J 7. 

Print At C1 , 10) ; "SCORE : " ; L7.; " " ; " 

cliquez avec la 
Repeat 

Until Mousek 


souris 


Run 
Endi f 

Print At CX17., Y17.) ; 
Ax7.=Xv7. 

Ay7.=Yv7. 

If Mousek=2 And Xv7.<33 
Xv7.= Xv7.+ l 
Sound 1,15,3,4,1 
Sound 1,15,7,3,1 
Endi f 

If Mousek=l And Xv7.>2 
Xv7.=Xv7.-l 
Sound 1,15,7,5,1 
Sound 1,15,3*4,1 
Endi f 
Sound 0,0 
Pause Nn7. 

Next L7. 

Run 


ATARI ST 

PACK 

Sauvegarder des images sur disquettes prend beaucoup 
de place et cela pose un problème lorsqu'on travaille 
sur 520. Ce compacteur/décompacteur réduit la taille 
des images. Il permet donc de sauvegarder 
plus d'images sur une seule et même disquette. 


Remarques : 

Ce programme fonctionne avec des images au format Néo¬ 
chrome ou Degas. 


Pack <C) 1987 by Y.BELTCHENKÜ 


t 
t 
t 

Cl s 

Fr7.=Gemdos C72, L: -1 > 

If Fr%<lOOpO 

Alert 3," ! Mémoire insuffisante 

! ", 1, "ANNULE",B7. 

End 
Endi f 

Pck7.=Qemdos<72, L: 3400) 

Unpc k7.=Pc k7.+1000 

Pkh i 7.=Un p c k7.+600 

Unp kh i 7.=Pkh i 7.+1000 

On Error Gosub Erreur 

Reserve 200000 

Dim Pack7. C 16100) , Men*C50) 

Rez7.= XbiosC4) 

Coe f x C Rez 7.=0 ) -2% C Rez 7. >0 ) 

Coe f y7.=-2# C Rez 7.=2 ) - C Rez 7.< 2 ) 

Deffn LCX7.)=X7. And 255 
Deffn HCX7.) = Int CX7./256) 

Of fp7.=698 
Of fun%=426 


Of fp.khi7.=S90 
Of funhi7.=566 
Restore Dat_pk3 
Gosub Instal 1 (Pc k7.) 

Restore Dat_un3 
Gosub Iristal 1 CUnpc k7.) 

Restore Dat_unhi 
Gosub Instal 1 (Unpkhi 
Restore Dat_pkhi 
Gosub Instal 1 CPkhi 7.) 
Irnage$=Str ing$ (32000, Chr $ CO) ) 
? 

Restore Dat_me 

t 

For T7.=0 To 50 
Flead A$ 

Exit If A$=":+:" 

Men*(T7.)=AS> 

Next TV. 

Men$ CT%)= "" 

Men*CT7.+ l ) =" " 

Menu Men$C) 
r 

Restore Dat_cop 

> 

For T7.= l To 24 
Read A7. 

M$==M$+Chr*<A7.) 

Next TV. 

Cl r TV. 
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“ epeat 
Inc T7 

Jntil Men*(T7)=" Neo" 

Foma7=T7 

!f • Rez 7 >0 

Menu F orna - /., 2 
Menu F cm a 7. h- 1 , 1 
Sw7.= l 
£1 se 

Menu Foma7, 1 
Menu F o m a 7 +1,0 
Cl r Sw7 
£ndi f 

Cornp ! =Fal se 
= acked ! =Faise 
£n Menu Qosub Treat 
Do 

Qn Menu 


_oop 

Procedure Treat 

If Men*(MenuCO)) = " Pack" 

Alert 0," î Pack Utilitie 

-M*+" ! " , 1, " 0K ",B7 

Endi f 

If Men$(Menu(O)) = " Quitter" 
Er7=Gemdos(73, L: Pck7.) 

Edit 
Endi f 

If Men*(Menu(0) ) =" Degas" 

If Rez7-0 

Menu F o ma 7», 0 
Menu Foma7+l,l 
Sw7=l 
Endi f 
Endi f 


If Men*(Menu(O)) = " Neo" 
If Rez7=0 


Menu F o rua 7., 1 
Menu F o m a 7 +1,0 
Cl r Sw7. 

Endi f 
Endi f 

If Men$(MenuC01)-" Compacte " 
If Got ! 

Gosub Pac k 


El se 

©Noi mage 
Endi f 
Endi f 

If Men$(Menu(0)) = " Decompacte " 

If Packed! 

Gosub Unpack 
El se 

©Nopac k 
Endi f 
Endi f 

If Men$ (Menu(O) !i = " Compactée" 
Gosub Load_pk 
Endi f 

If Men*(Menu(0))=" Compactée " 
Gosub Save_pk 
Endi f 

If Men$(Menu(0))=" Image" 

On Sw7+1 Gosub Neo,Degas 
End i f 

If Men* (Menu (0) )==" Image " 
Gosub Save_irn 
End i f 


Menu Off 
©Menbac k 
Return 

Procedure Save_im 
Local Sa*,Suf*,Na* 

I f Got ! =Tr ue 
If Sw7=l 

Sa*=Chr i. C0 ) +Chr * C Rez 7) +Pai *+1 mage* 
Suf*="pi "+Str* (Rez7+1 ) 

Else 

Sa*=Strinq*(4, Chr * (0) ) +Pal*+Stri nq 
* (S, Chr*<32) ) +Chr* (46) 

Sa*=Sa*+St ring$(3,Chr *(32))+Chr$(1 
28)+Chr*(30)+String*(78,Chr*(0))+Imaqe* 
Suf$="neo" 

Endi f 

Fi 1 eselect ' "V*:. "+Suf*, Mi d* (Noma$, 2, L 
en(Norna*)-5)+ "."+Su f*,Na* 

If Na*< >"" And Na*< >"\" 

Open "o",#l,Na* 

Print #l,Sa*; 

Close #1 
Else 
Endi f 
Else 

©Noimage 
End i f 
Retur n 

Procedure Nopack 
Local But 7. 

Alert 3,"! ! F'as d'image Compactée ! ", 1 

,"0K",B 
Return 

Procedure Noimage 
Local But7. 

Alert 3,"! IF'as d'Image Chargée ! " , 1, " 
0K " , But 7. 

Ret urn 

Procedure Menback 
Menu Men*() 

If Rez7=0 

Menu Foma7,1-Sw7 
Menu Foma7+1,Sw7 
El se 

Menu Foma7.,2 
Menu Foma7+l,1 
Endi f 
Return 

Procedure Pack 

Local But7,Sçr7,Pack7 
Scr7=Varptr(Image*) 

Sput Image* 

©Cadre(320*Coefx7,200*Coefy7,16,4,16,4 
, Scr7) 

Hi dem 

Pac k7=Varptr CPack7(0)) 

If Rez7=2 

Lpoke Pkhi 7+0f fpkhi7,Début7 
Lpoke Pkhi 7+0f fpkhi 7+4, F"indus7 
Lpoke Pkhi 7+0 f f pkhi 7+8, F'ack7+2 
F'oke Pkhi.7+0f f pkhi 7+12, Gr _87 
Cal1 Pkhi7 
Else 

Dpoke Pck7+üffp7,Rez7 
Lpoke Pc k7+0 f f p7+2,Début7 
Lpoke Pck7+0f fp7+6,Findus7 
Lpoke Pc k7+0f fp7+10,Pac k7+2 
Poke Pc k7+0f f p7.+14, Gr _47 






Cal 1 Pck 7. 

Endi f 
Showrn 

Pac ked!=True 
CountZ=Dpeek CPac kZ) 

If CountZ>32000 
@Too_c ornp 
Comp!=True 
El se 

Aler$="! Nombre d r Octets :"+Str$CC 
ountZ)+"!Longueur en Points 

Aler $=AIer$+Str$ CLbZ) + "!Larqeur en P 
oints :"+Str$(HbZ)+" 

Alert 0, Aler$, 0, " 0K " , But'/. 

Endi f 

Sput Image$ 

Return 

Procedure Too_comp 

Alert 3,"! Image Trop Complexe ... ", 1 , 
"ANNULE", BZ 
Retur n 

Procedure Un pack 
Local PackZ, IrnaZ 
ImaZ=Varptr ( Imaqe$) 

Cl s 

SCadr e CL’/., H’/., L’/., HZ, 16,4, ImaZ) 

Hidem 

Pac kZ=Var p t r C Pac k 7. C 0 ) > 

If RezZ=2 

Lpoke UnpkhiZ+Gf funhi 7., PackZ+2 
Lpoke Unpkhi7.+0f funhiZ+4, Début’/. 

Lpoke UnpkhiZ+Of funhi ’/.+ 8 , FindusZ 
Poke UnpkhiZ+Of funhiZ+12, Gr B7, 

Cal 1 UnpkhiZ 
El se 

Dpoke UnpckZ+Of funZ, Rez"/. 

Lpoke UnpckZ+OffunZ+2,PackZ+2 
Lpoke UnpckZ+Of funZ+ 6 , Début’/. 

Lpoke Unpc kZ+0f funZ+10,FindusZ 
Poke Unpc k’/.+ü f f unZ+14, Gr _4’/. 

Call UnpckZ 
Endi f 
Showrn 

Sput Images 
Return 

Procedure CadreCLmaxZ,HmaxZ,LminZ,HminZ, 
Step_xZ,Step_yZ,DetwZ) 

Local MxOZ, MyOZ, MxZ, My'/. 

Col or 0 

De f 1 i n e 5, 2, 0,0 

XbZ =0 

YbZ=0 

LbZ=LmaxZ 

HbZ=HrnaxZ 

Graphmode 3 

If RezZ=2 

St ep_yZ=St ep _yZ44 
Endi f 

F i r st.! =Tr ue 
Repeat 

If Mousek=l 

LbZ= C CMouse.x-XbZ+1 ) Div Step_xZ) 4S 

tep_xZ 

HbZ=C CMousey-YbZ+l) Div Step_y’/.) 4S 

te P_y'/- 

If LbZ>LmaxZ 
LbZ=LrnaxZ 
Endi f 


If HbZ>HmaxZ 
HbZ=HmaxZ 
Endi f 

If LbZ<LminZ 
LbZ=Lmi n’Z 
Endi f 

If HbZ<HminZ 
Hb7.=Hrni nZ 
Endi f 
El se 

If Mousek=2 

XbZ=CMousex Div Step_xZ) 4Step_x\ 
YbZ=CMousey Div Step_y’/.).4Step__yZ 
I f Xb’/.+LbV. >320*Coefx7. 

XbZ=320*Coe f x’/.-LbZ 
Endi f 
If XbZ<0 
XbZ-0 
Endi f 

I f Yb’/.+Hb Z >20Q*Coe f y Z 
Yb Z=200*Coe f y’/.-HbZ 
End i f 
I f YbZ<0 
YbZ=0 
Endi f 
Endi f 
Endi f 

If Ty! —Tr ue 

Box XbZ,YbZ,XbZ+LbZ-1,YbZ+HbZ-1 
Pause 2 

Bo x X b Z, Y b Z, X b Z+Lb Z -1, Y b Z+ H b Z -■ 1 
Ty!=False 
El se 

Box XbZ,YbZ+HbZ-1,XbZ+LbZ-1,YbZ 
Pause 2 

Box XbZ,YbZ+HbZ-1,XbZ+LbZ-1,YbZ 
Ty!=True 
Endi f 

First !=False 
MxOZ=Nousex 
My0Z=Mousey 
Until Inkey$=Chr$C32) 

Deb u t */.=Det w’/. + C 8/ C Coe f x 7.4 Coe f y 7. ) > TI n t C 
3204:Coe f xZ4YbZ+ XbZ) /1 6 > 

Fi n d usZ=Det wZ+ <8/ C Coe f x Z4Coe f y 7. } ) 41 n t 
C320*Coef xZ*YbZ+XbZ+LbZ-.l ) /16) 
Gr_4Z=HbZ/4 
LZ=LbZ 
HZ=HbZ 
If RezZ=2 

Gr _8Z=Gr _4Z/4 
Endi f 

Défiine 1,1,0,0 
Return 

Procedure Save_pk 

Local Na$, Racket, Pac k_2$, Pac kZ 
If Not Pac ked! 

QNopac k 
El se 

If Comp! 

@T oo_c ornp 
El se 

Su f $= " p k " +St.r $ C Rez Z+1 ) 

If Noma$="" 

Defau$="" 

El se 

Defau$=Mid$CNoma$,2,Len C NcmaT)-5 
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Endi f 

Fileselect "\*."+Suf*,Defau$+"."+S 
jf$,Na* 

If Na$<>"" And Na$<>"\" 

P a c k *=C h r$(Fn HCL 7. ) ) + C h r * C F n L < L 
“/.) ) +Ch r * C Fn H C H7. ) ) +Ch r * C Fn L C H*/. ) ) 

Pac k*=Pac k*+Chr $ (Gr _47» ) +Pal $ 

Pac k_2*=St r 1 ng$ CCoun 17., Chr * CO), ) 
Pac k r 7.=Ar r p t r < Pac k _2* ) 

Pac k%=Var ptr <Pack7.(0) ) 

Lpoke Pac kr V ., Pac k7.+2 
Pac k*-F‘ac k*+F'ack_2* 

Hi dern 

Dpen "o", # 1 ,Na$ 

Print #l,Pack*; 

Close #1 
Showrn 
Endi f 
Endi f 
Endi f 
Return 

Procédure Load_pk 

Local Paco7. f Pack*/., Mov7., Na*, Suf*, Pack* 
Fileselect "Vf. " + "pk"'+Str*(Rez7.+ l ) , " " , 

Na* 

If Na$<>"" And Na*<>"\" 

Open "i",#l,Na$ 

Length7.=Lof C#l) 

Pack*=Input*(Length%,#1) 

Close #1 

L7=Asc <Mid*(Pack*,1,1))£25£+AscCMid* 
(Pack*,2,1)) 

H‘/.=Asc(Mid*(Pack*,3, 1) )*256+Asc(Mid* 
(Pack*,4,1)) 

Gr_47.=Asc CMid*CPack*,5, 1) ) 

Pal*=Mid*(Pack*,6,32) 

A7.=Varptr (Pal*) 

Void Xbi os ( 6 , L : A7.) 

Pack*=Mid*(Pack*,38) 

Paco%=Varptr(Pack*) 

Pac k7.=Var p t r C Pac k7. C 0 ) ) 

Print Pac o7., Pac k 7. 

Repeat 

Until Mousek 

6 mo ve Pac o 7 ., p ac k 7.+2, Len g t h 7..37 

Pac ked!-True 
If Sw7.=l 

Suf *="pi "+Str * CRez7.) 

El se 

Suf$="neo" 

End i f 

Noma*-" \ "+rii d* (Na*, 1, Len CNa*)-5)+" . " 

-Suf* 

Endi f 
Return 

Procedure Degas 

Local Fi* ^ 

Fi 1 esel ect "N#, pi "+Str* (Rez7.+ 1 ), " " , Nom 

a* 

If Noma*<>" " And Norna*<>"\" 

Open "i",#1,Noma* 

Fi*=Input*(32034,#1) 

Pal*=Mid*(Fi*,3,32) 

Close #1 
@Setimage 
Got !=T rue 
Endi f 
Ret urn 


Procedure Neo 
Local Fi* 

Fileselect "Vf.neo","",Noma* 

If Noma*< >"" And Noma*<>"\" 

Open "i " , #1, Norna* 

Fi*=Input*(32128,#1) 

Pal *=Mi.d* (Fi*, 5, 32) 

Close #1 
@Setimage 
Got!=True 
Endi f 
Retur n 

Procedure Set image 
A5C=Var ptr (Pal *) 

Void Xbios(6, L: A7-) 

Irnage*=Right* (Fi*, 32000) 

Sput Image* 

F'ac ked ! =Fal se 
Comp!=Fal se 
Return 

Procedure Instal 1 (Adr7.) 

Read A7. 

For T7.=0 T o A7.-1 
Read A* 

Dpoke Adr7.+T7.*2, Val ("&h"+A*) 

Next T7. 

Return 

Procedure Erreur 
Close 
If Err=37 

Alert 3," ! Disque Plein ! ",1,"ANN 

ULE",B7. 

Endi f 

Résumé Next 
Return 
r 

' Data du menu 

r 

Dat _me: 

f 

Data Info, Pack 

Data- 

Data 1,2,3,4,5,6,"" 

Data Fichier, Neo, Degas,-, 


Charger ..., Image," Compactée" 

Data-, Sauver ..., Image , 

Compactée ,-, Quitter,"" 


Data Outils, Compacte , Decompacte ,"" 
Data $ 

f 

Dat_pk3: 

t 

Data 336, 

Dat a 4DFA,02B8,301E,0C40,0001,6600,0018, 
163C,003F,183C,0002,2A3C,0000,0004 
Data 1E3C,0006,6000,0014,163C,000F,183C, 
0004,2A3C,0000,0008,1E3C,0004,223C 
Data 0000,01E0,243C,0000,00A0,2C3C,0000, 
0460,4BFA,025C,2A82,4BFA,0266,2A82 
Data 4BFA,023E,1A83,4BFA,0239,1AB4,4BFA, 
0250,2A85,4BFA,0246,2AS6,4BFA,0225* 

Dat a 1A87,4BFA,022A,2A9E,D395,4BFA,0226, 

2A9E,D395,4BFA,0226,2A9E,4BFA,020C 

Data 1A9E,4BF A,0209,4215,4BFA,0202,4215, 

4BFA,020A,4E71,4495,4BFA,01F8,4255 

Dat a 2S7A,0200,207A,01F0,3A3C,000F,6100, 

01A2,4BFA,01DD,1A82,D1FA,01E6,383C 

Dat a 0002,6000,000E,207A,01D2,3A3Ü,000F, 











3830,0003,6100,0180,B43A,01BB,8700 
Data O00A,6100,0132,6000,0030,4BFA,01AC, 
4215,4BFA,01A7,5215,1615,B63A,019A 
Data 6600,0026,1OSA,0195,163A,018D,E720, 
803A,0188, 1600,4BFA,OISA,5255,4BF A 
Data 0181,1ABC,OOFF,4BFA,0178,4615,D1FA, 
0180,5100,FFAO,45FA,O178,4492,D1FA 
Dat a 0172,5305,6B00,0004,6094,B1FA,0162, 
6700, 0008, D1F A, 016A, 6082, 4BFA, 0148 
Data 5315,6700,0122,4BFA,0146,263A,015A, 
D795,4BFA,0140,D795,4BFA,013E,4495 
Dat a 207A, 0134,4245,3830, U003, ti 100,0060, 
B43A,011B,6700,OOOA,6100,0092,6000 
Data 0030,4BFA,01OC,4215,4BFA,0107,5215, 
1615,B63A,00F A,6600,0026,1OSA,00F5 
Dat a 163A,OOED,E720,803A,00E8,1600,4BFA, 
OOEA,5255,4BFA,00E1,1AB0,OOFF,4BFA 
Dat a 00D8,4615,D1FA,OOEO,5100,FFAC,4BFA, 
00D8,4495,DIFA,00D2,5245,0045, 0010 
Dat a 6700,0004,6090,B1FA,OOBA,6600,0026, 
4BF A,OOAA,5315,6700,0084,4BFA,OOAC 
Data 263A,00B4,D795,4BFA,009E,D795,4BFA, 
OOAO,4495,6000,FEBE,91FA,OOA2,6000 
Data FF5C,4BFA,0080,4A15,6700,0016,4BFA, 
0075,1A82,4BFA,0070,4615,4BFA,006B 
Data 4215,4E75,103A,0061,163A,0059,E720, 
S03A,0059,1600,4BFA,0056,5255,4BFA 
Data 004B,1AS2,4BFA,0047,4215,4E75,4202, 
4241,3010,OBOO,6700,0004,0302,3000 
Data 5201,B23A,0029,66EC,9IFA,0040,4E75, 
4BFA,0021,1615,B63A,0016,6700,0004 
Data 5215,61AC,267A,0020,373A,OOOE,4E75, 
0000 , 0000 , 0000 , 0000 , 0000 , 0000,0000 


Dat_unhi: 

t 

Data 280 

Dat a 4DFA,0234,265E,4BFA,0216,49FA,0216, 

289E,0694,0000,0460,2A94,4BFA, 0200 

Data 49FA,0200,289E,0694,0000,0460,2A94, 

4BFA,01E9,1A96,4BFA,01E2,1A9E, 4BFA 

Data 01DF,1ABC,OOFF,4BFA,01D6,4215,207A, 

01D8,4BFA,01DO,3ABC,000F,4BFA, 01CA 

Dat a 3ABC,0001,6100,0104,4BFA,01B9,5215, 

49FA,01BO,4BFA,01AD,1A94,4BFA, 0100 

Data 2ABC,0000,OOAO,4495,207A,01A4,3A3A, 

0190, 3830,0007,6100,0002,5302,6AOO 

Data 0006,6100,OOOE,D1FA,019A,5100,FFEC, 

45FA,0192,4492,D1FA,0180,5505,6B00 

Data 0004,60D4,B1FA,0178,6700,0006,5488, 

6004,4BFA,0156,5315,6700,0002, 4BFA 

Data 01SA,0695,0000,OOAO,4BFA,0158,0695, 

0000,OOAO,4BFA,0156,4495,207A,0148 

Dat a 3A3A,013A,3830,0007,6100,005E,5302, 

6A00,0006,6100,006A,D1FA,0136,5100 

Dat a FFEC,4BF A,012E,4495,D1FA,0128,5445, 

0045,0010,6000,0004,60D0,BIFA,0108 

Dat a 6600,002A,4BFA,00F7,5315,6700,005E, 

4BFA,OOFE,0695,0000,0960,4BFA,OOEO 

Dat a 0695,0000,0960,4BFA,00F2,4495,6000, 

FF36,5588,6098,3010,0801,0007,6700 

Dat a 0008,OBOO,6000,0004,0B80,3080,4E75, 

1413,4BFA,00B4,4A15,6700,OOOE,4215 

Data 0202,0007,121B,E901,4E75,E80A, 1213, 

0202,0007,5215,4E75,4BFA,0093,4A15 

Data 6700,0018,0015,0001,6700,0036,0015, 

0002,6700,0052,0015,0003,67DE,49FA 

Data 0086,4BFA,007E,2A94,49FA,0074,4BFA, 


0060,2A94,4BFA,0062,3ABC,OOOE,4BFA 
Data 005 l., 4255, 6000, FE96,49FA, 0060, 069 *- 
0000,0050,4BFA,0052,2A94,49FA,0048 
Data 0694,0000,0050,4BFA,003A,2A94,60ÜC 
FE72,49FA,0030,4BFA,0034,2A94,49FA 
Data 002A,4BFA,0022,2A94,4BFA,0018,3ABC 
000F,4BFA,0012,3ABC,0001,6000, FE4A 
Dat a 0000,0000,0000,0000,0000,0000,OOOC 
0000 , 0000 , 0000 , 0000 , 0000 , 0000,0000 
F 

Dat_un3: 

F 

Data 210 

Data 4DFA,01A8,301E,0040,0001,6600, 0014. 

1630,003F,2A3C,0000,0004,1E3C,0006 

Data 6000,0010,1630, OOOFT, 2A3C, 0000,0008. 

1ESC,0004,2230,0000,01EO,2430, 0000 

Data OOAO,2030,0000,0460,4BFA,0156,2A82. 

4BFA,0148,2A82,4BFA,0159,1AS3,4BFA 

Data 0138,2A85,4BFA,013A,2A86,4BFA,014E. 

1A87,265E,4BFA,0134,2A9E,D395, 4BFA 

Data 0130,2A9E,D395,4BFA,012E,1A9E,4BFA. 

011A,4495,6100,00F2,207A,0114,3A3C 

Dat a 000F,3830,0003,6100,0026, 5302,6AOO. 

0006,6100,00D8,D1FA,00F6,5100,FFEC 

Data 45FA,OOEE,4492,DIFA,00E8,5305,6B0C . 

002A,60D4,4246,1C3A,OOEA,3610, ODOO 

Data 6700,0008,0BC3,6000,0004,0B83,3003. 

5246,0046,0008,66E6,9IFA,OOBO,4E75 

Dat a B1FA,OOBE,6700,0008,D1FA,00A2,609C . 

4BFA,00B6,5315,6700,007E,4BFA,00A2 

Data 263A,0092,D795,4BFA,0090,D795,4BFA. 

008E,4495,207A,0090,4245,3830,0003 

Dat a 61AO,5302,6A00,0006,6100,0054,D1FA. 

0072,5100,FFEE,4BFA,006A,4495,D1FA 

Dat a 0064,5245,0045,0010,6700,0004,60D2. 

B1 FA, 0053, 6700, 0008,91 FA, 0040,6002: 

Data 4BFA, Ou54, 5315,6700, OU 1U, 4BF A, 0U4C . 
263A,0034,D795,4BFA,003A,D795,4BFA 
Data 0020,4495,6000,FF14,4E75,1413,C43A. 
002D,101B,4E75,ESOA,1013,0202,0007 
Data 5215,4E75,0000,0000,0000,0000,OOOC . 
0000 , 0000 , 0000 , 0000 , 0000 , 0000,0000 
y 

Dat_pkhi: 

F 

Data 434 

Dat a 4DFA,0378,4BFA,0350,49FA,0350,28SE. 
0694,0000,0460,2A94,4BFA,0352,49FA 
Dat a 0352,289E,0694,0000,0460,2A94,4BFA. 
0340,2A9E,4BFA,0325,1A96,4BFA,031E 
Data 1A9E,4BFA,031E,4215,4BFA,0317,4215, 
4BFA,032A,2ABC,0000,OOAO,4495,4BFA 
Data 0303,4215,4BFA,0302,4255,4BFA,02F6. 
4215,267A,0310,207A,02F8,3A3C,000F 
Data 4BFA,02EC,3ABU,000F,4BFA,02E6,3ABC . 
0001,6100,01B2,4BFA,02D2,1AS2,D1FA 
Data 02E6,3830,0006,6000,002A, 4BF" A, 02BF. 
5215,49FA, 02B6,4BFA, 02B3, 1A94,4 B F" A 
Data 02CA,2ABC,0000,OOAO,4495,207A,02AE. 
3A3A,02A6,3830,0007,6100,0174,B43A 
Data 0294,6700, OOOA, 6100,00F4, 6000, OO'IA, 
4BFA,0285,4215,4BFA,0280,5215,OC15 
Data 0007,6600,0006,6100,0150,DIFA,0286, 
5100,FFCE,45FA,027E,4492,D1FA,0278 • 

Data 5505,6800,0.004, 60B6, B1FA, 0264,6700, 

0006,5488,60A6,4BFA,0243,5315,6700 

Dat a 0180:, 4BFA, 0246, 0695,0000, OOAO, 4BFA. 
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0244,0695,0000,00A0,4BFA,0242, 4495 
Data 207A,0234,3A3A,0226,383C,0007,6100 
Û0F2,B43A,0212,6700,OOOA,6100,0072 
Dat a 6000,001 A,4BFA,0203,4215,4BFA,01FE 
5215,OC15,0007,6600,0006,6100,CODA 
Dat a D1FA,C204,51CC,FFCE,4BFA,01FC, 4495 
D1FA,01F6,5445,0C45,0010, 6C00, 0004 
Data 6uB2,B1F A,01D6,6600,002A,4BF A,01C1 
5315,6700,01OA,4BFA,01CC,0695, 0000 
Data 0960,4BFA,01BA,0635,0000,0960,4BFA 
0ICO,4495,6000,FEFA,5583,6000,FF7A 
Dat a 4BFA,0197,4A15,6700,0016,4BFA,018C 
1A82,4BFA,0187,4615,4BFA,0182, 4215 
Dat a 4E75,4BFA,0176,OC15,0001,6700,0008 
5215,6000,001C,1023,E300,803A,0162 
Data E700,803A,015E,16C0,4BFA,0154,4215 
£000,001E,103A,014C,E700,803A,0148 
Data 16C0,4BFA,0144,5255,6600,0008,588F 
6000,O126,4BFA,0130,1A82,4BFA,012C 
Dat a 4215,4E75,4202,3010,OBOO,6700,0006 
08C2,0000,4E75,4BFA,0110,OC15, 0001 
Dat a 6700,0030,5215, 1OSA,0104,E700,0000 
0007,16C0,4BFA,OOFC,5255,6600,0008 
Data 588F,6000,OCDE,4BFA,0ÜEA,1ABC,00FF 


4BFA,OOE1,4615,4E75,1023,E300,803A 
Dat a 00D4,E700,0000,0007,16C0,4BFA,00C6 
4215,4BFA,00C4,1ABC,OOFF,4BFA,OOBB 
Data 4615,4E75,4BFA,00B1,4A15,6700,001A 
OC15,0001,6700,0038,OC15,0002,6700 
Data 0054,OC15,0003,6700,0074,49FA,00A6 
4BFA,009E,2A94,49FA,0094,4BFA,008C 
Dat a 2A94,4BFA,0082,3ABC,OOOE, 4BFA,007C 
4255,6000,FDAC,49FA,0080,0694,0000 
Dat a 0050,4BFA,0072,2A94,49FA,0068,0694 
0000,0050,4BFA,005A,2A34,6000,FD88 
Dat a 43FA,005c,4BFA,0054,2A34,49F A,004A 
4BFA,0042,2A94,4BFA,0038,3ABC,000F 
Dat a 4BFA,0032,3ABC,0001,6000,FD60,4BFA 
0020,OC15,0007,6700,0004,5215,6100 
Dat a FE96,267A,002A,373A,OOOC,4E 75,0UO0 

0000 , 0000 , 0000 , 0000 , 0000 , 0000,0000 

I 

Dat_cop: 

r 

Data 40,67,41,32,17,25,24,23,32 
Dat a 98,121,32,89,46,66,101,108 
Data 116,99,104,101,110,107,111 


ATARI ST 

PLANE 

Non, ce listing en GFA n'est pas l'équivalent 
de Flight Simulator. Il se révèle cependant fort simple 
et distrayant. Ce n'est déjà pas si mal... 


Rem **X%**%*tX**XX**.%XX*****X 

Plot 220,15 

Rem Plane par Sotiropoulos C. 

Rem * * * * * * * * * * :*:***:*:* * * * * * 

Plot 78,20 

Plot 300,25 

Resol = Xbi os (. 4.) 

If Resol <>0 

Plot 150j 20 

Alert 3,"LOW RESOLUTION ONLY",1,"CANCE 

Plot 280, 14 

L" , B 

Plot 20,25 

Plot 30,33 

Edit 

Plot 10,50 

( Endif 

Plot 200,55 

Cl s 

Plot 30,60 

Wave 0,0 

Plot 100,66 

Print At(1,21;"LEVEL 1,2,3,4 ?" 

Line 0,170,319,170 

X$=Input$Cl> 

Deffill 3,2,8 

Ni v7.=Val CXÜO 

Fi 11 5,175 

If Niv7.>4 Or Niv7.<0 

A*=Mki$Cl)+Mki$C1)+Mki$(0) 

Niv7.=l 

A$=A$+Mk i$(l) +Mk i $ C 0 :> 

Endi f 

For I7.= l To 16 

Cl s 

Read A7. 

Gosub Met col 

A$=A$+Mki $ CO > +Mk i $ C A7.) 

Openw 0,Xpos,Ypos 

Next 17. 

Deffill 3,2,8 

Deffill 15,2,8 

Fi 11 100,100 

For I7.=25 To 310 Step 80 

Deffi'll 4,2,8 

J7.= 120—Random C 50 > 

Pc ire le 70,35,11 

Pbox 17., J7-, I7.+40, 175 

Col or 4 

Next 17. 

Plot 310,25 

Deffill 15,2,6 

Plot 200,20 

For 17=20 To 310 Step 80 

Plot 210,25 

J7=100-Random C 60i 
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Pbox 17., J 7., 17.+40, 179 
Next 17. 

Color 0 

Line O,185,319,185 
Line 4,184,319,184 
Line 4,184,20,170 
Deffill 5,2,8 
Fi 11 O,178 
Fi 11 1,188 

Répété: 

Col or 0 
Gosub Llight 
Gosub Redoff 
Yav7.=35 
Hi dern 
Cl r J 7 . 

Sc7.=0 

T i rn7.=T i mer 

Niv7.=4000/Niv7. 

If Ni V/K2000 
Niv7.=Ni V7.+300 
Endi f 
Do 

Inc J7. 

Exit If J7>10000 
For I7.= l To 319 Step 2 
Sc7.=Ti mer -T i m7. 

If Sc7.>Niv7. 

Gosub Cr ash 
Endi f 

Text 85,20," time left; : "+8tr$<N 
iv7.-Sc7.:>+" »' 


Vsync 

Sprite A$,I7.,Yav7. 

Sound 1,12,7,3,1 

Wave 24,1,13,10000,2 

Yav7.=Yav%+( (Mousek= 1 )-(l v lou5ek=2) > 

If Yav7.<35 
Yav7.=35 
Endi f 

If Point CI7.+ 17, Yav7.!> = 15 And Yav7.<80 
Gosub Crash 
Endi f 

Exit If Meusek=3 
Exit If Yav7.>=18B 
Next 17. 

Exit If Mousek=3 
Exit If Yav7.>-188 
_oop 

I ‘ Yav7.<180 P- Yav7.>=188 
3osub Crash 
~ause 20 

"or J,j7.=Yav7. To 199 
Sprite A$,I7.,Jj7. 

'■ext Jj7. 

Run 
E- = i f 
r - e:n7.=0 


While I7.<260 
Gosub Red 
K7.=Mousek 


If K 51=3 

Inc Fre:Ln7. 

End i f 

If Frein7.= 15 And Yav7.>=180 And YavX< = 

84 

Print AtC4,45 ;"Landed. Press any ke 

■■. 

• t 

X$=Input*<:i) 

R un 
Endi f 
Cl r K7. 

Add 17., 8 
Vsync 

Sprite A$, 17., Yav7. 

Gosub Redoff 
Wend 

Gosub Cr ash 


Data 0,0, ?<h 1800,8<h eOO, &h 700, ?<h c f f 8, ?<h f f 


6, &h f f f f , &h4f f 1, S<h21c8, St h 1 f f 8, &h380, &h7' 
0, &he00,&hle00,O 
Procedure Crash 

For J7.= l To 20 Step 3 
Circle I7.+ 17, Yav7.+8, J7. 

Sound 1,15,4,5,1 
Sound 1,15,3,2,2 
Sound 0,0 
Next J7. 

Run 

Ret urn 

Procedure Llight 
Def1ine 1,1,2,2 
For 1151=0 To 15 


Line 25*117., 193, 
Next 117. 

Return 

Procedure F.:ed 
Deffill 1,2,8 
Pcircle 45,193,4 


Pcircle 85,193,2 
Pcircle 125,193,1 
Return 

Procedure Redoff 
Deffill 0,2,8 
Graphmode 1 
Pcircle 45,193,4 
Pcircle 85,193,2 
Pcircle 125,193,1 
Ret urn 

Procedure Met col 
Setcolor 0,&H777 
Set c olor 1, &H 7 00 
Setcolor 3,8<H5 
Setcolor 4,S«H77 
Setcolor 5,&H555 
Setcolor 15,0 
Return 


25*117.+16, 193 








ATARI ST 


PUZZLE 

Comme son nom l'indique, ce programme vous met au défi 
de reconstituer une figure. Facile? A voir... 


— 

Rem * * :*: * * 4 * * A: * *:*::*: * * * * * * * * 4 * * 4 4 
Rem Puzzle par SOTIROPOULOS C. 

R e m T T 4 * T 4 T 4 4 4 T 4 4 T1: T 4 4 4 T 4 4 T T T T T 
Rem 44 High / Medium resolution 
Rem 4 4 4 4 * 4 4 T T * * T T * T 4 T * * 4 * T T T T * * 

Rem 

Resol 7.=Xb i os C 4 1 
If Resol 7.=0 

Edit 
Endi f 

Cl s 

If Resol 7.= 1 
Setcolor 0,5 
Set col or 3,&H777 
Else 

Setcolor 0,0 
Endi f 

Dim Ta< 16), Da< 10) 

Gosub Puzzle 
Run 

Procedure Puzzle 
T r y=0 

Deftext 1,16,0,32 

Def1ine 1,1,2,2 

Text 250, Resol7.426, "Puzzle" 

For I7.=222 To 461 Step 80 

Box 142,31 4Reso 17., 17., 1274Resol7. 

Next 17. 

For I'/.= U0 To 254 Step 48 

Box 142,314Resol7.,462, C I7./2) 4Resol7. 
Next 17. 

Box 141,304Resol 7., 463, 1274Resol 7. 

Da(l)=-4 

Da <21 =4 

Da C3:> “ 1 

Da < 4)=—1 

Arrayfi11 Ta O,0 
If Random <! 101 >5 
For -Ï7.= l To 15 
Ta< 17.1 = 17. 

Next 17. 

Else 

jy.=o 

For I7.--15 Downto 1 
Inc J7. 

Ta< I7.1=J7. 

Next 17. 

Endi f 

Deftext 1, 1,0, 164Reso 17. 

Gosub Affichage 
V~ 16 

For J7.= 1 To 3 
For 17.= 1 To 15 
L230: 

A=Random(51 

If A>2 And Ta<17.100 And Ta<I7.+ ll< 


>0 

Swap Ta < 17.1 , Ta < 17.+11 
Print Chr $ <71; 

Gosub Affichage 
Endi f 
Next 17. 

Next J7. 

Gosub Affichage 
Do 

Mouse X,Y,K 
Exit If K—2 
If K= 1 
Pause 7 
Gosub Saisie 
Endi f 
Loop 
Return 

Procedure Saisie 

If x >=142 And X<=221 And Y>=31 4Resol 7. 
And Y<=544Resol Z. 

R7.=Ta < 11 
Goto Suite 
Endi f 

If X>=222 And X<=301 And Y>=314Ressol7. 
And Y<=544Resol7. 

R7.=Ta<2> 

Goto Suite 
Endi f 

If X >=302 And X<=381 And Y>=314Resol 7. 
And Y<=544Resol "/. 

R7.=Ta <31 
Goto Suite 
Endi f 

If X>=382 And X<=46l And Y>=314Resol A 
n.d Y<=544Resol7. 

R7.=Ta <41 
Goto Suite 
Endi f 

If X>=142 And X<=221 And Y>=554Resol% 
And Y<=784Resol V. 

R7.=Ta.<5l 
Goto Suite 
Endi f 

If X >=222 And X<=301 And Y >=554 R e sol 7. 
And Y<=784Resol7. 

R7.=Ta <61 
Goto Suite 
Endi f 

If X>=302 And X<=381 And Y>=554Resol7. 
And Y< =784Resol 7. 

R7.=Ta <71 
Goto Suite 
Endi f 

If X>=382 And X<=464 And Y >~554Resol 7. 
And Y<=784Resol7. 

&7.—T a < 81 
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Goto Suite 
Endi f 

If X >= 142 And X<=221 And Y>=794Resol 
And Y< = 1024Reso1 7. 

R7.=Ta C9) 

Goto Suite 
Endi f 

If X>-222 And X<=301 And Y>=794Resol 7. 
And Y<=lÔ2*ResolX 
RX=TaC10) 

Goto Suite 
Endi f 

If X>=302 And X<=381 And Y>=794Resol7. 
And Y<=lQ24ResolX 
RX=Ta Cil) 

Goto Suite 
Endi f 

If X>=382 And X<=464 And Y>=79*Resol X 
And Y< = 1024F.:esol 7. 

RX=TaC12) 

Goto Suite 
Endi f 

If X>=142 And X<=221 And Y>=1034Resol7. 
And Y < = 1274R e s o 1X 
R7.=TaC 13) 

Goto Suite 
Endi f 

If X >=222 And X<=301 And Y>=1034Resol 7. 
And Y< = 1274Reso 17. 

RX=TaC14) 

Goto Suite 

Endi f 

If X>=302 And X<=381 And Y>=1034Resol 7. 
And Y< = 1274Re.so 1 7. 

R7.=TaC 15) 

Goto Suite 
Endi f 

If X>=382 And X<=461 And Y>=1034Resol 7. 
And Y< = 1274Resol 7. 

R7.=Ta(16) 

Goto Suite 
Endi f 

Print Chr4C7); 

Goto Retsaisie 
Suite: 

For I7.= l To 1S 

Exit If RX=TaCI%) 

Next 17. 

R7.= I7. 

For I7.= l To 4 
Fl ag!=False 

If RX+DaC 17.) >16 Or R7.+DaCI7.Xl 
Goto LS90 
End i f 

If TaCR7.+Da C 17.) ) =0 
Flag!=Tr ue 
End i f 

Exit If Flag!=True 
LS 90: 

Next 17. 

If Flag!=False 
Goto Retsaisie 
Endi f 

Ta C RX+Da C17. ) ) =Ta CR7. ) 

Ta(RX)=0 
Dec R7. 

Gosub B1ank 
J=RX+Da C17. ) 


Gosub A f fic hageO 
Inc T r y 

Deftext 1,1,0,13 

Print At(32,22);"ESSAI : ";Try; 

De f t ext 1,1,0, Resol 7.416 

Ret sai si e : 

Ret urn 

Procedure Test 
A*=Str$CTa(H-l)) 

If Ta CI+1X10 
A*=" "+A$ 

Endi f 
Return 

Procedure Affichage 
X7.= 170 

Y7.=504Resol7. 

For 1=0 To 3 
If Ta CI +1)=0 
Goto L510 
Endi f 
Gosub Test 
Text X7.,Y7.,A$ 

X7.=X7.+80 

L510: 

Next I 
X7.= 170 

Y7.=744R e s o 17. 

For 1=4 To 7 
If Ta CI +1)=0 
Goto L511 
Endi f 

Gosub Test 
Text X7., Y7., A4 
X7.=X7.+80 
L511: 

Next I 
X7.= 170 

Y7.=984Resol 7. 

For 1=8 To 11 
If Ta CI +1)=0 
Goto L512 
End i f 

Gosub T est 
Text X7.,Y7.,A4 
X7.=X7.+80 
L512: 

Next I 
X7.= 170 

Y7.= 1224Resol7. 

For 1=12 To 15 
If Ta CI +1 ) =0 
Goto L513 
En d i f 

Gosub Test 
Text XX, Y/C, A4 
X7.= X7.+80 
L513: 

Next I 
L600 : 

Ret urn 

Procedure B1ank 

X7.= CR7. Mod 4)480+170 
If R7.< =3 

Y7.=504Resol 7. 

Goto BlankO 
End i f 
I f R7.< =7 

YX=744ResolX 
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Goto BlankO 

Endif 

Endi f 

If J<=7 

If R7< = 11 

Y7.=744Resol7. 

Y7.=984Resol 7. 

Goto Aff 

Goto BlankO 

Endi f 

Endi f 

If J<=11 

If R7.< = 15 

Y7.=984R e s o 17. 

Y 7.= 1224Resol 7. 

Goto Aff 

Goto BlankO 

Endi f 

Endi f 

If J< = 15 

Goto Ret__blankO 

Y7.= 1224 Resol 7. 

B1ankO: 

Goto Aff 

Text X7.,Y7.," " 

Endi f 

Ret_blankO: 

Goto Aff_ret 

Return 

Aff: 

©rocedure AffichageO 

I=J 

X7.= C J Mod 4) #80+170 

Gosub T est 

If J<—3 

Text X7., Y7., A$ 

Y 7.=5 0 :f : R e s o 17. 

Aff ret: 

Goto Aff 

Return 


ATARI ST 


SLIDER 

Cet utilitaire gère des images au format Néochrome et 

Degas. Chargement, effacement et autres manipulations 

sont présentes. 

I 9 

Men$ CT7+1 )="" 

• Slider CO 1987 By Y.BELTCHENKO 

J f 

Menu Men$C) 

21 s 

Restore Dat cop 

~r 7.=Gemdos C72, L: -1) 

f 

If Fr7.< 10000 

For T’/.= l To 24 

Alert 3," ! Mémoire insuffisante ... 

Read A7. 

! ", 1, "ANNULE", B7. 

Rah$=Rah$+Chr$CA7> 

End 

Next T7. 

Endi f 

Cl r T7. 

SIideX=GemdosC72,L:1800? 

Repeat 

3n Error Gosub Erreur 

Inc T7. 

Di rn Nen$C50> 

Until Men$CT7)=" Neo" 

Rez.7.=XbiosC4) 

F oma 7.=T 7. 

Coe f x7.=- C Rez 7.-0 ) -24 C Rez 7. >0 ) 

Cl r T7. 

2oe f y '/.——24 C Rez 7=2 ) — C Rez 74 2? 

Repeat 

Image$=String$C3200O,Chr$C0)? 

Inc T7. 

:rn_sl i d$=String$ C32000, ChriCO) ) 

Until Men$ CT7.) =" Image 1 " 

3f f _sl i 7.= 1660 

Irn 17=T7 

: f 

If Rez 7.=0 

Restore Dat_sli 

Menu Foriia'/., 1 

, 9 

Menu Foma7.+1,0 

josub Instal 1 CS1 i de7.) 

Clr Sw7 

9 

El se 

Restore Dat_rne 

Menu Foma7., 2 

| f 

Menu FomaX+’l, 1 

For Tfc=0 To 50 

Sw7.= 1 

Read A$ 

End i f 

Exit If A*="4" 

Menu Im 17., 1 

Men4CT7)=A$ 

I_1!=T r ue 

Next T 7. 

Dn Menu Gosub Treat 

fen$ CT7. ) =" " 

Do 















On Menu 
Loop 

Procedure Treat 

If Men$(Menu(CD 1 = " Slide" 

Alert 0," ! Slide Utilitie 

"+Rah$+" I 1, " OK ", B7. 

Endi f 

If Men$(MenuC0)1=" Quitter" 


Er 7.=Gemdos C 73, L : SI i de/O 
Edit 
Endi f 

If Men$(Menu<011=" Deqas" 
If Rez7.=0 

Menu F orna 7., 0 
Menu Foma7.+1,1 
Sw7.=l 
Endi f 
End i f 


If Men$(MenuC0)!=" 
Sput Image$ 

I_1!=True 
Endi f 

If Men$(Menu(0)ï=" 
Sput Im_slid$ 

I_1!=False 
Endi f 

If Men$(Menu(01 !-" 
If Rez7.=0 

Menu Forna7., 1 
Mepu Foma7.+1,0 
Cl r Sw7. 

Endi f 
Endi f 

If Men$(MenuCCD 
If I_1I 

Sput Image$ 

El se 

Sput Im_slid$ 
Endi f 
Repeat 

Until Mousek 
Endi f 

If Men$(Menu(011 —" 
If Got! 


Image 1 " 


Image 2 " 


Neo " 


Plein" 


Réduit " 


Gosub Hi_slide 
El se 

©Noimage 
Endi f 
Endi f 

If Men $ ( Men u ( O ! 1 = " I mage" 
On SwX+l Gosub Neo,Degc\s 
Endi f 

If Men$ (Menu(O) ) = " Image " 
Gosub Save_im 
Endi f 

If Men$(Menu(O))=" Efface" 
Alert 3," ! Etes-vous sur 

"OUI ! NON" , BV. 

If B7.= 1 
Cl s 


If I_1 ! 

I rnage$=Str i ng$ C 32000, Chr S ( 0) 1 
El se 

I rn_sl i d $=St ring$( 32000, Chr $ ( CD 1 

Endi f 
End i f 
Endi f 
Menu Off 


©Menback 
Return 

Procedure Save_im 

Local Sa$,Suf$,Na$,Sa_i$ 

If I_1.! 

Sa_i $=Irnage$ 

El se 

Sa_i $=Im_sl i d$ 

Endi f 

If Got!=True 
If Sw7.= l+ 

Sa$=Chr $ (0) +Chr $ CRez7.1 +Pal $+Sa i $ 
Suf$="pi "+Str$CRez7.+ ll 
El se 

Sa$=String$C4,Chr$C01 >+Pal$+String 
$(8,Chr$(321l+Chr$C461 

Sa$=Sa$+St rin g $(3,Ch r $ C 3211+Chr $(1 
28 >+Chr $ C 301+St ring $(78,Ch r $ C 011+Sa_i$ 
Suf$="neo" 

Endi f 

Fi 1 eselect "+Suf$, Mi d$(Noma$, 2, L 

en(Noma$1-51+"."+Suf $, Na$ 

If Na$<>"" And Na$<>"\" 

Open "o",#1,Na$ 

Print #l,Sa$; 

Close #1 
El se 
Endi f 
Else 

©Noimage 
Endi f 
Return 

Procedure Noimage 
Local But7. 

Alert 3,"l ! Pas d'image Chargée !",1, " 

OK " , But 7. 

Ret urn 

Procedure Menback 
H idem 

Menu Men$(l 
If Rez7.=0 

Menu Forna7., l A Sw7. 

Men u F orna 7.+1, Sw7. 

Else 

Menu Foma7. ,2 
Menu Forna7.+ l, 1 
Endi f 

Menu Im 17., Abs ( I_1 ! 1 
Menu Im_ 17.+1, 1 -Abs ( I _ 1 ! 1 
Showrti 
Return 

Pr oc ed ur e Cad r e ( Lma x 7 ., Hmax 7 ., Lrni n 7., Hm i n 7., 
Step_x7., Step_y7, Detw7.1 
Local Mx 07. , My07., Mx7., My7. 

Col or 0 

De f 1 i n e 5, 2, 0,0 
Xb7.=0 
Yb 7=0 
Lb7.=Lmax7. 

Hb7.=Hmax7. 

Graphmode 3 
If Rez 7 m =2 

St ep_y7=St ep_y7.*4 
End i f 

First !=True 
Repeat 

If Mousek=l 

Lb7.= C (Mousex—XbX+11 Di v St ep_x7.1 *S 
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tep_x7. 

Hb7.= ( <Mousey-Yb7.+1 ) Div St ep_y7.) #S 

tep_y7. 

If LbX>Lmax7. 

Lb7.=Lmax7. 

End i f 

If Hb7.>Hmax7. 

Hb7.=Hmax7. 

Endi f 

If Lb7.<Lmi n7. 

‘Lb'/.-Lmi n*7. 

Endi f 

If H b 7. < H min 7. 

Hb7.-Hmi n7. 

Endi f 
El se 

If Mousek=£ 

Xb7.= (Mousex Div St ep_x7.) ÆSt ep_x7. 
Yb7.= (Mousey Div Step y7.)$Step y7. 
I f Xb7.+Lb7. >320*Coef x 7. 

Xb7.=320*Coe f x7.-Lb7. 

Endi f 
If Xb7.<0 
•Xb7.- ; 0 
Endi f 

I f Yb7.+Hb7.>200*Coef y7. 

Yb 7.=200*Coe f y7.-Hb7. 

Endi f 
If Yb7.<0 
Yb7.=0 
Endi f 
Endi f 
Endi f 

If Ty ! «True 

Box XbV., Yb7., Xb7.+Lb7.-1, Yb7.+Hb7.-1 
Pause 2 

Box Xb7., Yb7., Xb7.+Lb7.-1, Yb7.+Hb7.-1 
Ty!«False 
El se 

Box Xb7., Yb7.+Hb7.-1, Xb7.+Lb7.-1, Yb7. 
Pause 2 

Box Xb7. f Yb7.+Hb7.-1, Xb7.+Lb7.-1 r Yb7. 

Ty!=True 
Endi f 

Fi rst ! =False 
MxOX=l v 1ousex 
My07.=Mousey 
Until Inkey*=Chr*(32) 

Deb ut 7.=Det w7.+ ( S / < Coe f x 7.:* Coe f y 7. ) ) * I n t < C 
320*Coe f x7.*Yb7.+Xb7.) /16) 

Fi ndusX=Det w7.+( 8/(Coef x7.#Coefy7. ) ) f: I n t < 
<320*Coefx7.*Yb7.+Xb7.+Lb7.-l ) /16) 

Gr _47.=Hb7./4 
L7.=Lb7. 

H7.=Hb7. 

If Rez7.=2 

Gr_87.=Gr_47./4 
Endi f 

Def1ine 1, 1,0,0 
Return 

Procédure Degas 
Local Fi* 

Fil esel ec t " \ *. p i " +St r * C Rez /.+1 ), " " , Nom 

a* 

If Noma$<>"" And Noma*<>"\" 

□pen "i",#l,Noma* 

Fi *>=Input *.(32034, #1 ) 

Pal*=Mid*(Fi*.3,32) 


Close #1 
©Setimage 
Got!=True 
Endi f 
Ret urn 

Procedure Neo 
Local Fi* 

Fileselect "Vfc. neo","",Noma* 

If Nornà*< >" " And Noma$<>"\" 

Open "i",#i,Noma* 

F i *=Input* <32128,#1) 

Pal *=Mi d*(Fi*,5, 32) 

Close #1 
©Setimage 
Got!=True 
Endi f 
F-Ietur n 

Procedure Set image 
A7.=Var ptr <Pal *) 

Void Xbios<6, L: A7.) 

Image*=Riqht* (Fi*,32000) 

If I_1 ! 

Sput Image* 

Endi f 
Return 

Procedure Hi_slide 
Local Par_ind7., B7., A7. 

Sput Im_slid* 

A7.=Varptr C Image*) 

B7.=Varptr < Im_slid*) 

©Cad r e < Coe f x 7.:f-320, Coe f y 7.#200, 1G, 4, 1 G , 2 

,A7.) 

©SI i de < XbX, Yb7., Lb7., Hb7., A7., B7. ) 

Sput Im_slid* 

I_1!=F aise 
Return 

Procedure SI i de< XV., Y7-,L7., H*/., A7., B7.) 

Dpoke Slide7.+0f f.sliX, XV. 

Dpoke SI i de7.+Qf f. si i 7.+2, Y7. 

Dpoke SI ide7.+0f f _sl i 7.+4, L7. 

Dpoke SI i de7.+ü f f _ S 1 i 7.+G, H7. 

Lpoke SI ideX+Q f f _sl i 7.+8, A7. 

Lpoke SlideX+Gff_sl i 7.+ 12,BX 
Hi dem 

Cal 1 SlideX 
Showm 
Return 

Procedure Instal 1 < Adr 7.) 

Read A7. 

For T7.=0 To A7.-1 
Read A* 

Dpoke Adr 7.+T7.*2, Val < "8<h " +A*) 

Next T7. 

Ret urn 

Procedure Erreur- 
Ci ose 
If Err =37 

Alert 3,” ! Disque Plein i ",1,"ANN 
ULE ", B7. 

Endi f 

Résumé Next 
Return 

F 

’ Data du menu 

F 

Dat_me: 

t 

Data Info, Slide 
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Dat a - 

Data 1,2,3,4,5,6,"" 

Data Fichier, Neo, Degas,-—--—, 

Charger . . . , Image, "--" 

Data Sauver ..., Image ,-, 

Quitter,"" 

Data Outil, Réduit ,-, Image 

1 , Image 2 ,-," Efface" 

Data " Plein","" 

Dat a $ 

» 

Dat_sli: 

t 

Data 196 

Data 4DFA, 067A, 3F"3C, 0004,4E4E, 54BF, 4281, 

4287,E340,321E,341E,6100,011E,321E 

Dat a 3E1E,205E,2C56,DDC3,47FA,012C,3633, 

0000,47FA,012A,3833,0000,4246,47FA 

Dat a 0144,425B,4242,5246,B646,6700,0014, 

4285,3A06,CAC1,8AC3,B445,67EC,36C6 

Data 3405,60E£,2248,47FA,01OA,268E,47FA, 

0108,4BFA,OOFE,3AB3,0000,47FA,0102 

Dat a 4BFA,00F0,3AB3,0000,47FA,OOFC,4BFA, 

00E2,3AB3,0000,4BFA,00D8,3A87,47FA 


Dat a OOFO,3A3C, FFFF ,347C,OOFF,284B,700F. 
6016,284B,700F,4287,3E3A,OOCO,DEBA 
Data OOBE,4BFA,OOBA,2A87,2C47,5245,B845. 
6700,007C,4287,3E05,CEEA,009E,8EC4 
Dat a B4C7,67EA,3447,3E05,CEEA,0096,2049. 
3A47,D1CD,2A48,3E3C, EFEE ,5247,B247 
Data 67BA,204D,4282,34IC,7610,84C3,4842. 
760E,9642,4842,C4FA,006A,D1C2, 4286 
Data 3410,0702,6700,OOOC,3416,01C2,3C82. 
6000,0008,3416,0182,3C82,548E,5488 
Data 5206,BC7A,0046,66DC,E346,91C6,9DC6. 
5340,6B00,0004,60AE,70OE,DDu£,60AS 
Dat a 4E75,47EA,0032,4283,3633,0000,Ü6C2, 
E849,47EA,0030,3E33,0000,C2C7, D641 
Dat a 4E75,0140,0280,0280,OOCS,OOCS,0190. 
0000,0000,0000,0000,0000,0000,OOAO 
Dat a OOAO ,0050,0004,0002,0001,0008,0004. 
0002 , 0000 , 0000 , 0000 , 0000 , 0000,0000 
f 

Dat_cop: 

t 

Data 40,67,41,32,17,25,24,23,32 
Dat a 98,121,32,39,46,66, 101, 108 
Data 116,99,104,101,110,107,111 
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COMMODORE 64 


ECHEC 

De très bon niveau, ce jeu d'échecs connaît la prise 
en passant, le roque, etc. Mais son plus 
grand mérite est d'être écrit en Basic. 


100 REM **************** 

101 REM * PRESENTATION * 

102 REM **************** 

. 10 F0KE53280,0 : PQKE53281,0: PR I NT "SW 
111 10=0:11=10 
112 GQSUB160:G0SUB150 

.13 11 = 11 +1+(11>14)*15: FORI=53671TQ556BC 
: PÛKE1, 11 :NEXT 

: 14 FORI=55831TG55840:POKEI,11 :NEXT 

115 I1=11+1+(I1>14)*15:F0RI=55711T055791 
3TEP40:POKEI, I1 :POKEI+9,I1 :NEXTI 

116 12=1 
120 GÜT0200 

150 REM # CENTRE DU MESSAGE # 

151 PR I NT " (siMlRlclRlMlRlnlRlRln]'' TAB ( 16 ) " 13 lï) 

152 PRINTTAB < 16) "IS ECHECS ISS" 

153 PRINTTAB ( 16) "13 IS" 

154 RETURN 

160 REM # POURTOUR DU MESSAGE # 

.61 PRINT "SS*I«WRl»Ii<Ii'Wm" TAB ( 15 ) "**********" 

162 PRINTTAB(15)"* *" 

163 PRINTTAB(15)"* *" 

164 PRINTTAB(15)"* *" 

165 PRINTTAB(15)"**********" 

:66 RETURN 

199 REM 

200 REM ************************ 

201 REM * CARACTERES REDEFINIS * 

202 REM ************************ 

210 REM # RECOPIE JEU CARACTERES * 

211 RESTORE 

212 S0=54272: F'OKESO+24,5: J0=2 

213 POKESO,0:POKESO+1,JO:P0KES0+2,153: PO 
•ESO+3,1 :PQKESO+5,O:P0KES0+6,128 

214 F'OKESO+4,37 

220 K0=32768: K1=53248 

221 F0RI=0T031 

222 PQKE56334,PEEK(56334)AND254 

223 F'OKEl, PEEK.< 1 ) AND251 

224 F0RJ=0T063 

225 POKEKO+I*64+J,PEEK(K1+I*64+J) 

226 NEXT J 

227 PQKE56334 ,, PEEK ( 56334 ) OR 1 

228 POKEI, F'EEK(1)0R4 

229 10=10+1+(I0>14)*15:11=10 

230 I1=I1+1+(I1>14)*15:F0RK=55671T055680 
: F'OKEK, I1:NEXTK 

231 F0RK=55831T055840 : POKEK, 11 : NEXTK 

232 11 = 11 + 1+ (11>14)*15:F0RK=557UT055791 
5TEP40: F'OKEK, 11 : F'DKEK+9, 11 : NEXTK 

233 J0=JO+SGN((I>15)+.5) 

234 POKESO,0:POKESO+1,JO:PÜKESO+2, 153: PO 
ESO+3, 1 : P0KES0+5, 0: F'OKESO+6, 128 

235 NEXTI 


236 F'OKESO+4, 36 

240 REM # MODIFICATION CARACTERES # 

241 1=8*64:J=8*192 

242 READA 

243 IFA=-1THENG0SUB300:GÛT0250 

244 F0RK=0T07 

245 F'OKE (KO+I+K) , A: F'OKE (KO+J+K) , 255-A: RE 
ADA 

246 NEXTK:1=1+8:J=J+8 

247 CL=CL* (<CL>14)+1)+1 :P0KE646,CL:GOSUB 
150 

248 GQT0243 

250 REM # CHANGEMENT DE BANC MEMOIRE # 

251 PQKE55,0:P0KE56,128 

252 P0KE56576,197 

253 PQKE53272,32 

254 P0KE64B,(34816/256) 

255 PRINT"(sT 

256 FQRI=8T0135:READA;PÛKESB+I,A:NEXTI 

257 G0SUB400 

258 G0T0500 

299 REM 

300 REM ****************** 

301 REM * INITIALISATION * 

302 REM ****************** 

310 REM # DECLARATION DES TABLEAUX tt 

311 DIMG(8,8),GR(8,8) 

312 DIMCN (32) ,F'H(32) ,F'V(32) ,DE(32) ,CT(32 
),LT(32),NU(32),DF(32) 

313 DIMTC(32),HC(32),VC<32>,TW<32),HW(32 
) , VVJ (32) 

314 DIMF'E (15) , LE (15) 

315 DIMQI(11,8) 

316 DIMCX(7),LX(7) 

317 DIMDP(4,17),PT<4,17) 

318 DIMCA(11) 

319 DIMEC(1) 

320 REM # INIT TABLEAUX AVEC DATA # 

321 F0RI=1TQ32:READCT(I),LT<I),NU(I),DF( 
I):NEXTI 

322 F0RA=1TQ4:FQRB=1T017:READDT(A,B):NEX 
TB, A 

323 F0RA=1T032:READTW(A),HW(A),VW(A):NEX 
TA 

330 REM # COULEURS DE CASES # 

331 FQRA=1T08:F0RB=1T08 

332 IF(A+B)/2=INT((A+B)/2)THENG(A,B)=1 : G 
0T0334 

333 G(A,B)=0 

334 NEXTB,A 

335 REM # OCCUPATION DE CASES # 

336 F0RA=1T08:FORB=lTOe 

337 GR(A,B)=-1 

338 NEXTB,A 

340 REM # NB DE MOUVEMENTS DES PIECES # 
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341 FQRA=1TQ32:CN(A)=0:NEX TA 

345 REM # POSITION,DESSIN DES PIECES # 

346 FQRI=1T032 

347 GR(CT( I ) ,LT <I))=NU<I):PH(NU(I)>=CT(I 
) : PV <NU ( I ) ) =LT ( I ) :DE(NU(I) ) =DF ( I ) 

348 NEXTI 

350 REM # PRISE EN PASSANT # 

351 FQRA=0T015: PE(A)=0: LE ( A)=0: NE X TA 

355 REM # DEPLACEMENTS DES PIECES * 

356 FORA=1T04:FORB=1TO17: DP < A,B)=DT < A,B) 

: NEXTB,A 

360 REM # PROMOTION DU PION # 

361 F0RA=0T011 : CA-(A) =0: NEXTA 

365 REM # POSITION PIECES CAPTUREES # 

366 F0RA=1T032:TC(A)=TW(A):HC(A)=HW(A) :V 
C(A)=VW(A):NEXTA 

370 REM # ECHEC # 

371 FQRA=0TÛ1:EC(A)=0:NEXTA 

375 REM # VARIABLES PRINCIPALES * 

376 PL=1 :C0-5s L0=5 s NE=0s J0=56320 

377 SB=35832:30=53269:SH=53248:SV=53249: 
SC=53287 

380 RETURN 

399 REM 

400 REM *********** 

401 REM * SPRITES * 

402 REM *********** 

410 REM # SPRITE 0 # 

411 POKESB+Û,48:POKESH+O,0:POKESV+O,0 

412 PQKESO, F'EEK ( SO ) OR < 2 TO ) 

420 REM # SPRITE 1 tt 

421 POKESB+1,49:POKESH+1,0:P0KESV+1,0 

422 POKESO,PEEK(SO)OR(2tl) 

430 RETURN 

499 REM 

500 REM ******************** 

501 REM * DESSIN ECHIQUIER * 

502 REM ******************** 

510 REM # CADRE # 

511 PR I NT " SMW" TAB ( 13 ) "A B C D E F G H" 

512 F’RINT : F'RINT 

513 FORI=1TQ8: F'RINT: PRINTTAB (8) 9-1 TAB (29 
)9-1:NEXTI 

514 PR INT "WW" TAB ( 13) "A B C D E F G H" 

515 PR I NT " IstllnlW" T AB (10) "la 

ia" 

516 PRINTTAB (10) "Ilia ta 

C1+CD>8QRL1+LD<1ORL1+LD> 8THEN1029 

1028 P1=GR (Cl+CD, Ll+LD) : IFINT (PI / 17) OPL 
THENF1=0:I=NB 

1029 NEXTI:RETURN 

1099 REM 

1100 REM ************************* 

1101 REM * TEST PRISE EN PASSANT * 

1102 REM ************************* 

1110 REM # INITIALISATION DU TEST # 

1111 IFCPC2THENRETURN 

1112 IFF'L=0THENNP=CÛ+7 : LP=I_1 : GOTO 1120 

1113 NF'=C0-1:LP=L1 

1120 REM # TEST # 

1121 IFF'E (NP) =CP-1ANDLE (NP) =LF'THENF2=0: W 
1 = 1 

1130 RETURN 

1199 REM 

1200 REM ************** 

1201 REM * TEST ECHEC * 

1202 REM ************** 

1210 HE=16*ABS (F'L-1 ) 


1211 REM # PION # 

1212 F0RIE=1+HET08+HE 

1213 IFF'H(IE) <0THEN1217 

1214 IFF'V ( IE) <>PV <32-HE) +SGN ( PL-. 5 ) THEN- 
217 

1215 IFABS (F’H < IE) —PH (32-HE) ) 01 THEN 1217 

1216 F3=0:NE=1 :CX(O)=PH(IE):LX(0)=PV(IE 
:IE=8+HE 

1217 NEXTIE:IFF3=0THENRETURN 

1218 REM # FOU # 

1219 FORIE=9+HET01O+HE:IFPH(IE)<0THEN121 
5 

1220 NH=PH<IE)-PH(32-HE):NV=PV(IE)-PV(32 
-HE) 

1221 IFABS(NH)<>ABS(NV)THEN1225 

1222 FF=1:G0SUB1270:IFFF=1THEN1225 

1223 F3=0:NE=ABS(NH)s FORU=OTONE~1 :CX(U>= 
PH(IE)-U*J:LX(U)=PV(IE)-U*K:NEXTU 

1224 IE=1O+HE 

1225 NEXTIE:IFF3=0THENRETURN> 

1226 REM # CAVALIER # 

1227 F0RIE=11+HET012+HE:IFPH <IE)<0THEN1I 
33 

1228 NH=PH(IE)-F'H (32-HE) : NV=PV ( IE) -PV (31 
-HE) 

1229 IFABS(NH)>20RABS(NHX1THEN1233 

1230 IFABS(NH)-1ANDABS < NV)< > 2THEN1233 

1231 IFABS(NH)=2ANDABS(NV)O 1THEN1233 

1232 F3=0:NE=1 :CX(0)=PH(IE):LX(0)=PV(IE 
;IE=12+HE 

1233 NEXTIE:IFF3=0THENRETURN 

1234 REM # TOUR # 

1235 F0RIE=13+HET014+HE:IFPH(IE)COTHENU 
40 

1236 NH=F'H< IE)-PH<32-HE) : NV=PV < IE).-PV (32 
-HE) 

1237 IFNH<>OANDNV< >OTHEN 124.0 

1238 FF=1 :GOSUB1280:IFFF=1THEN1240 

1239 F3=0:GOSUB1290: IE=14+HE 

1240 NEXTIE:IFF3=0THENRETURN 

1241 REM # REINE 4 

1242 IE=15+HE: IFF'H ( IE) <OTHENRETURN 

1243 NH=PH(IE)-PH (32-HE) : NV=F'V ( IE> —PV (32 
-HE) : IFABS (NH) OABS (NV) THEN1247 

1244 FF=1:GOSUB1270:IFFF=1THENRETURN 

1245 F3=0:NE=ABS(NH):FORU=OTQNE-~ 1:CX(U)= 
F'H ( IE ) -U* J : LX (U) =PV ( IE) -U*l<: NEXTU 

1246 RETURN 

1247 IFNH<>OANDNV<>OTHENRETURN 

1248 FF=1:GOSUB1280:IFFF=1THENRETURN 

1249 F3=0:GOSUB1290 

1250 RETURN 

1270 REM # TEST DIAGONAL # 

1271 IFABS(NH)=1THENFF=0:RETURN 

1272 J=SGN(NH):K=SGN(NV):FORU=1TOABS(NH 
-1 

1273 IFGR(PH(IE)-U*J,PV(IE)-U*K)>=OTHENL 
=500 

1274 NEXTU:IFU<500THENFF=0 

1275 RETURN 

1280 REM # TEST HOR/VERT # 

1281 IFNHOOTHEN1285 

1282 IFABS(NV)=1THENFF=0:RETURN 

1283 J=SGN(NV):FQRU=1T0ABS(NV)—1 :IFGR <PK 
(IE),PV <IE)-U*J)> =0T HENU=500 

1284 NEXTU:IFU<500THENFF=0:RETURN 

1285 IFABS(NH)=1THENFF=0:RETURN 

1286 J=SGN(NH):F0RU=1T0ABS(NH)-1 :IFGR(PH 
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(IE)-U*J,PV(IE))>=0 T H E N U=5 O 0 
:287 NEXTU:IFLK500THENFF=0 
1288 RETURN 

1290 REM # MEMO ECHEC HOR/VERT # 

1291 IFNH=OTHEN1293 

1292 NE=ABS(NH):FORU=OTGNE-1 :CX(U)=F’H(IE 
-U*J: LX (U) =F'V ( IE) : NEXTU: RETURN 

1293 NE=ABS(NV):FORU=OTONE-1 sCX(U)=PH(IE 
:LX(U)=F’V(IE)-U*J:NEXTU:RETURN 

1299 REM 

1300 REM ******* 

1301 REM * PAT * 

1302 REM ******* 

1310 REM # JOUEUR PL PAT # 

1311 P R I N T " WRlBlHldlBlBlllI 

a PAT ! ! 13" 

1312 GQSUB3700 

1313 GOTO700 

1399 REM 

1400 REM ********************* 

1401 REM * INDICATION JOUEUR * 

1402 REM ********************* 

1410 REM # BLANCS # 

1411 IFPL=OTHENPRINT"{sUb] I3BLANCSI3"TAB (33 
)"NOIRS":RETURN 

1420 REM # NOIRS # 

1421 PR I NT " f=MCn] BLANCS " TAB < 33 ) " 13401RSI3" : R 
ETURN 

1499 REM 

1500 REM ****************** 

1501 REM * RECHERCHE CASE * 

1502 REM ****************** 

1510 REM # INITIALISATION RECHERCHE # 

1511 DI =F'EEK ( JO+F'L ) AND31 

1520 REM # TEST DIRECTIONS # 

1521 IFDI<21ORDI>30QRDI=240RDI=28THENRET 
JRN 

1522 IFDI<24ANDC0<8THENC0=C0+1 

1523 IFDI>24ANDDI<28ANDC0>1THENCO-CO-1 

1524 IFINT(DI/2)=DI/2ANDL0>1THENL0=L0-1 

1525 IFINT(( DI -1 )/4) =(DI-1)/4ANDL0<8THEN 
L0=L0+1 

1526 F0RH=1TQ5:NEXTH: G0SUB1600:RETURN 

1599 REM 

1600 REM ***************** 

1601 REM * SON RECHERCHE * 

1602 REM ***************** 

1610 REM # VOIX 0 # 

1611 F'OKESO ,136: POKESO+1,19: F'ÛKESO+2,153 
: P0KES0+3, 1 : P0KES0+5, 0.: F’OKESO+6, 128 

1612 P0KES0+4, 17: F0RH=1TQ150:NEXT: F'OKESO 

+4, 16 

1613 RETURN 

1699 REM 

1700 REM ******************* 

1701 REM * CLIGNOTTEMENT 1 * 

1702 REM ******************* 

1710 REM # INITIALISATION # 

1711 PO=GR(CO,LO):PI=PO 

1712 REM # VIDE / PIECE # 

1713 IFF'I <0THEN1720 

1714 C=CO : L=L0: ONG(CO,LO)+1GÜSUB620,610s 
FÛRH=1T05:NEXTH 

1715 G(CO,LO)=ABS(G(CO,LO)—1) 

1716 ONG(CO,LO)+1GQTÛ1717,1716 

1717 G(CO,LO)=1 :GÜBUB640:FORH=1TQ10:NEX T 
H:RETURN 

1718 G (CO, LO) =0: G0SUB640; FQRH= 1TO10: NEX T 


H:RETURN 

1720 REM # VIDE / VIDE # 

1721 C=CO:L=LO: ONG(CO,LO)+1G03UB620,610 s 
F0RH=1T05:NEXTH 

1722 G(CO,LO)=ABS(G(CO,LO)-1) 

1723 ONG(CO,LO)+1GQSUB620,610:F0RH=1TQ10 
:NEXTH:G(CO,LO)=ABS(G(CO,LO)-1) s RETURN 

1799 REM 

1800 REM ********************** 

1801 REM * MESSAGE IMMOBILITE * 

1802 REM ********************** 

1810 REM # CHOIX PIECE INTERDITE # 

1811 P R IN T " IïiMKlB 

13 PIECE CLOUEE 13" 

1812 G0SUB3500 

1813 F‘R I N T 11 ISJBIB WBlBlBlBlBlfllBjBlHllIlBlBlIlimBlBmillIIllB] 

":RETURN 

1899 REM 

1900 REM ******************* 

1901 REM * PIECES CHOISIES * 

1902 REM ******************* 

1910 REM # PIECE A BOUGER # 

1911 F'OKESC, VG: PQKE3H, 104+16*01 : F'OKESV, 6 
1+16*L1:RETURN 

1920 REM # PROMOTION DU PION # 

1921 POKESC+i, 13: F'OKESV+2,61 + 16*LR: ZR=10 
4+16*CR: F'OKESH+2, ZR+255* ( ZR>255) 

1922 P0KE53264, F'EEK (53264) AND2530R2*- ( ZR 
>255) 

1923 RETURN 

1999 REM 

2000 REM ******************* 

2001 REM * CLIGNOTTEMENT 2 * 

Î20Û2 REM ******************* 

2010 REM # PIECE / PIECE # 

2011 IFGR(CO,LO)<0THEN2020 

2012 C=C0:L=LO: G(CO,LO)=ABS(G(CO,LO)-1): 
G0SUB640:F0RH=1T08:NEXTH 

2013 G(CO,LO)-ABS(G(CO,LO)-1): PI=GR(CO,L 
O) :G0SUB640::F0RH=1TQ10:NEXTH:PI-PO 

2014 RETURN 

2020 REM # PIECE / VIDE # 

2021 C=CO:L=LO:G(CO,LO)=ABS(G(CO,LO)-1): 
G0SUB640:FORH=1T08:NEXTH 

2022 ONG(CO,LO)+1G0SUB620,610:FORH=1TO10 
: NEXTH: G(CO,LO)=ABS(G(CO,LO)-1):RETURN 

2099 REM 

2100 REM *********************** 

2101 REM * TEST CASE D'ARRIVEE * 

2102 REM *********************** 

2110 IFINT (GR (CO, LO) / 17) =PLTHENF4 S =0: RETU 
RN 

2111 REM # PION # 

2112 IFF’I- 16*PL>8THEN2122 

2113 TR=1-(CN(PI)<1): IFABS(CO-C1)>1THENF 
4=0:RETURN 

2114 IFPL=OAND < L0>L1-1ORLO<L1-TR)THENF4= 
0:RETURN 

2115 IFF’L=1AND <L0<L1 + 10RL0>L1+TR) THENF4= 
0:RETURN 

2116 IFCOOC1ANDABS ( LO-L1 ) <> 1 THENF"4=0 ; RE 
TURN 

2117 IFCOOC1ANDGR (CO, LO) =-1 THENF2= 1 : GOS 
UB1100:F4=ABS(F2-1):IFF4=0THENRETURN 

2118 IFC0=C1ANDGR(CO,LO)<>-lTHENF4=Û:RET 
URN 

2119 IFABS(LO-L1)=2THENG0SUB2200 

2120 IFL0=7*PL+1THENW2~1 


85 









2121 RETURN 

2122 REM # FOU # 

2123 IFF'I —16*PL> 10THEN2127 

2124 IFABS (CO-C1 ) OABS (L0-L1 ) THENF4=0s RE 
TURN 

2125 FF=1:G0SUB2170:F4=FF: IF F 4=0T HENRETU 
RN 

2126 RETURN 

2127 REM # CAVALIER # 

2128 IFFI-16*PL>12THEN2133 

2129 IFABS(C0-C1)CIORABS(C0-C1)>2THENF4= 
Os RETURN 

2130 IFABS(CO-C1)=2ANDABS(LO-L1)< >1THENF 
4=0:RETURN 

2131 IFABS (CO-C 1 ) = 1 AND ABS (LO-L 1 ) 02THENF 
4=0:RETURN 

2132 RETURN 

2133 REM # TOUR # 

2134 IFF’I —16*PL>14THEN213S 

2135 IFCO<>C 1ANDLOOL1 THENF4=0 : RETURN 

2136 FF=1sSOSUB2180:F4=FF:IFF4=0THENRETU 
RN 

2137 RETURN 

2138 REM # REINE # 

2139 IFF'I — 16*F'L> 15THEN2 146 

2140 IFABS ( CO-C 1.) < >ABS ( LO-L 1 ) THEN2143 

2141 FF=1:G0SUB2170:F4=FF: IFF 4=0 fHE NRET U 
RN 

2142 RETURN 

2143 IFCOOC1 ANDLOOL 1 THENF4=0: RETURN 

2144 FF=1 :G0SUB2180:F4=FF: IFF4=0THENRETU 
RN 

2145 RETURN 

2146 REM # ROI # 

2147 IFABS(C0-C1)>20RABS(L0-L1)>1THENF4= 
0: RETURN 

2148 IFABS(CO-C1)=2THENF5=1 :G0SUB2300:F4 
=F5:IFF4<>1THENRETURN 

2149 RETURN 

2170 REM # TEST DEPL DIAGONAL # 

2171 I=SGN(CO-C1):J=SGN(LO-L1) 

2172 IFABS(C0-C1)<2THENRETURN 

2173 FORK=ITOCO-C1-1STEPI : IFGR(C1+K,L1+J 
*ABS (K) ) 0-1 THENFF=0: K=CO-C 1 -1 

2174 NEXTK 

2175 RETURN 

2180 REM # TEST DEPL HOR/VERT # 

2181 I=SGN(CO-C1):J=SGN(LO-L1) 

2182 IFABS (C0-C1X2THEN21B5 

2183 FQRK=ITOCO-C1-1STEPI : IFGR(C1+K,L1)< 
>—1THÉNFF=0 

2184 NEXTK 

2185 IFABS(L0-L1)C2THENRETURN 

2186 F0RK=JT0L0-L1—JSTEF'J: IFGR (Cl, Ll+K) < 
>-lTHENFF=0 

2187 NEXTK 

2188 RETURN 

2199 REM 

2200 REM *************************** 

2201 REM * OPTION PRISE EN PASSANT * 

2202 REM *************************** 

2210 REM # PION BLANC # 

2211 IFPL=OTHENH=PI-1 : PE(H)=CPs LE(H)=L0: 
RETURN 

2212 REM # PION NOIR # 

2213 H=PI-9:PE(H)=CP:LE(H)=L0:RETURN 

2299 REM. 

2300 REM ********* 


2301 REM * ROQUE * 

2302 REM ********* 

2310 REM # TEST VALIDITE DU ROQUE # 

2311 IFEC(PL)=1THENG0SUB3100:F5=2s RETUF 

2312 IFLOOL1THENF5=C: RETURN 

2313 IFCN(PI)<>0THENF5=0:RETURN 

2314 IFC0=C1+2THENJJ=C0:KK=1: IFCN(P1-2, 
>0THENF5=O:RETURN 

2315 IFC0=C1-2THENJJ=C0-1:KK=—1:IFCN(PI 
3)<>0THENF5=0:RETURN 

2316 FORI=CO-KKTOJJSÎEPKK:IFGR <I,L1)<>- 
THENF5=0sI=JJ+KK 

2317 NEXTI 

2318 RETURN 

2399 REM 

2400 REM ************* 

2401 REM * MOUVEMENT * 

2402 REM ************* 

2410 REM # EFFACE / REAFFICHE PIECE # 

2411 F'ÛKESH+O, 0: CN (PI) =CN (PI)+1 

2412 C=C1:L=L1: ONG(Cl,L1)+1G0SUB610,620 

2413 C=CO: L=LO: G0SUB640: F'H (F'I ) =C0: PV(PI 
=L0 

2414 REM # TESTS DIVERS # 

2415 IFW1>0THENG0SUB2500 

2416 IFP9>ÛTHENG0SUB2600:G0T02419 

2417 POKESO,136:POKESO+1,119:P0KES0+2,E 
:P0KES0+3,52:P0KES0+5,0:POKESO+6,128 

2418 F'OKESO+4, 17: F0RH=1T0200: NEXTH: POKE 
0+4,16 

2419 IFW2=1THENG0SUB2700:W2=0 

2420 IFF5=1THENGQSUB2800 

2421 F'L=ABS (F'L-1 ) : F3=l : G0SUB1200: IFF3=1 
HENF'L=ABS ( PL-1 ) : G0T0800 

2422 REM # ROI ADVERSE-ECHEC tt 

2423 EC(PL)=1 

2424 F7=l : G0SUB3200: PL=ABS (F'L.-l ) : IFF7=1 
HEN2429 

2425 PR I NT " isUiRKUitlnlMlRlRlRlHlRlRlnlclnlnlRlRlnlnlRlnimn] 

13 ECHEC ! ! IS" 

2426 G0SUB3600 

2427 PR I NT " 

II 

2428 GQT0800 

2429 REM # ROI ADVERSE MAT # 

2430 PR I NT " 

IS MAT ! ! 1S U 

2431 G0SUB3700 

2432 GQTÛ700 

2499 REM 

2500 REM ******************** 

2501 REM * PRISE EN PASSANT * 

2502 REM ******************** 

2510 REM # P EF' PION NOIR # 

2511 IFPLOOTHEN2514 

2512 F'9=GR ( CO, L0+1 ) : GR ( CO, L0+1)=-1 :C=CC 
L=LO+1 : ONG(CO,L0+1)+1GQSUB610,620 

2513 RETURN 

2514 REM # P EF’ PION BLANC # 

2515 F'9=GR ( CO, LO-1 ) : GR ( CO, LO-1 ) =-1 : C=CC 
L=LO-1: ONG(CO,LO-1)+1G0SUB610,620 

2516 RETURN 

2599 REM 

2600 REM *********** 

2601 REM * CAPTURE * 

2602 REM *********** 

2610 REM # SON # 

2611 POKESO,36:POKESO+1,25:P0KES0+2,53: 
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IKESO+3, 52: P0KES0+5,79: PÜKESO+6, 199 
2612 FOKESO+4, 129: F0RH=1T0500: NEXT: P0KE3 
+4,128 

1613 REM # INITS + REAFFICHAGE # 

1614 PH <P9) =—1 : F'V <F‘9) =~ 1 

1615 G=TC <P9): CA(0)=CA(0)+1 :C=HC(P9): L=V 
:(P9)-CA(0) 

1616 Y=INT CP9/17):X=DESS(F'9> +4*Y:60SUB68 
:GÜSUB643 

1617 QI(0,CA <0))=P9:RETURN 
1=99 REM 

1700 REM ********************* 

1701 REM * PROMOTION DU PION * 

1702 REM ********************* 

1710 REM # CHOIX PIECE REMPLAÇANTE # 

2711 K=6*PL+1 : CR= 11-15*F’L 

1712 IF(CA(K)=OANDCA(K+l)=OANDCA(K+2)=0A 
•DCA(K+3)=0)THENRETURN 

1713 IFK=6*F'L+5THENK=6*F‘L+1 

1714 IFCA(K)=0THENK=K+1:B0TQ2713 

1715 LR= 10-2* ( K—6*F'L ) — ( CA < K ) -1 ) :G0SUB192 

1716 IF (F'EEK (56320+PLAYER)AND31 ) =30 T HE N K 
=<+l:G0T027 13 

1717 IF (F'EEK (56320+PLAYER) AND 1 6) =OTHENPÜ 
ESH+2,0:PQKE53264,0:GGT02719 

1718 G0T02716 

1719 REM # REMPLACEMENT # 

1720 C=CR:L=LR:G0SUB610 

1721 F'9=P 1: 6QSUB2613 

1722 F‘I=QI (K, CA (K) ) : C=CO: L=LO: G0SUB640: G 
• CO, LO )—P I 

; 72-3 P H (PI) =C0 : PV ( PI ) =L0 
:+24 CA(K)=CA(K)-1 :RETURN 
1799 REM 

1300 REM ********* 

1301 REM * ROQUE * 

1302 REM ********* 

1310 REM # PETIT ROQUE # 

1311 IFSGN(CO—Cl)C0THEN2815 

1312 F'I=GR(8,L1) : GR (C1 +1, L1 ) =F'I : C=8: L=L 1 
:ZNG(8, L1)+1G0SUB610,620 

1313 GR (8, L1 ) =-1 : F'H (F'I ) =C1 + 1 : PV (PI ) =L 1 : C 
=11 + 1: L=L1 :G0SUB640 

1314 P I=F'0: RETURN 

1315 REM # GRAND ROQUE # 

1316 PI=GR(1,L1) : GR (C1 -1, L1 ) =PI : C= 1 : L=L. 1 
: ING(1,L1)+1G0SUB610,620 

1317 GR (1, L1 >=-l:F'H (PI) =L1-1:F'V (PI) =L1:C 
= 11-1 ! L=L1 :GQSUB640 

1318 P I=F'0: RETURN 
1399 REM 

1900 REM ******************** 

1301 REM * ARRIVEE EN ECHEC * 

1 = 02 F<EM ******************** 

1310 REM # MOUVEMENT INTERDIT # 

; r 11 p r i n t " WiniHWBiBmiiiiniBiiiiiiwiiiiiiiBmiiiiBiiiiBiiimmi 

VOUS VOUS METTEZ ECHEC 13" 

1912 GQSUB3500 

1=13 F'R INT" ISlHlIlInllIIlIlRlIIlRlHlIlIllIlIlRlIIlRlHlRlIIlRlRlHlnlII] 

II 

14 POKESH,O:RETURN 
99 REM 

. 00 FÆM ******************** 

: 01 REM * DEMEURE EN ECHEC * 

: Î2 REM ******************** 

110 REM # MOUVEMENT INTERDIT # 

.11 PR IN T '' WiRlRlRlRlRlRIRlRlRlRrRIRlRlRlRlRlRlRlRlRIRlRlR] 


13 VOUS ETES ENCORE ECHEC 13" 

3012 GÜSUB3500 

3013 PR I NT " (SjRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlR] 

II 

3014 POKESH,0:RETURN 

3099 REM 

3100 REM ****************** 

3101 REM * ROQUE INTERDIT * 

3102 REM ****************** 

3110 REM # ROQUE IMPOSSIBLE # 

3111 F'RINT" ISfflRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlRlR] 

13 ROQUE INTERDIT 13" 

3112 G0SUB3500 

3113 F'R I NT “ WRIRIRIRIRIRIRIRIHIRIRIRIRIRIRIRIRIRIRIRIRIRIRI 

II 

3114 POKESH,0:RETURN 

3199 REM 

3200 REM ************ 

3201 REM * TEST MAT * 

3202 REM ************ 

3210 REM # FUITE EVENTUELLE DU ROI # 

3211 RI = 16*F'L: 11 = 16+RI : NN=NE 

3212 FORCC=F'H ( 11 ) -ÎTOF'H ( 11 ) +1 ; FGRLL=F'V ( I 
I ) - ÎTOF'V ( 11 ) +1 : F9=l : G0SUB3400 

3213 IFF9=1THENF7=0: CC=F'H ( 11 ) +1 : LL=PV ( 11 
) +1 

3214 NEXTLL,CC:IFF7=0THENRETURN 

3215 REM # FIN ECHEC PAR AUTRE PIECE # 

3216 NE=NN:F0RCE=0T0NE-1:CC=CX(CE):LL=LX 
(CE) 

3217 REM ... PION ... 

3218 FORII=1+RIT08+RI 

3219 TT = 1 — (CN ( 11 ) < 1 ) : CW=F'H (II) : LW=PV ( I l ) 

:IFCW<1THEN3227 

3220 IFABS(CC-CW)>1THEN3227 

3221 IF (R=OANDLL>LW-1 ) OR ( R=1ANDL.L<LW+1 ) T 
HEN3227 

3222 IF(R=OANDLL<LW—TT)OR(R=lANDLL>LW+TT 
)THEN3227 

3223 IF (CCOCW) AND ( (R=0ANDLL<LW-1 ) OR (R=l 
ANDLL>LW+1))THEN3227 

3224 IFCCOCWTHENF8=l : G0SUB3300: IFF8=1TH 
EN3227 

3225 IFCC=CWANDGR (CC, LL-SGN (R-. 5) ) 0-1 TH 
EN3227 

3226 F9=l:G0SUB3400:IFF9=1THENF7=0:11=8+ 
RI 

3227 NEXTII:IFF7=0THENCE=NE:60TQ3255 

3228 REM ... FOU ... 

3229 .FORI I=9+RIT010+RI : CW=F'H (II) : LW=F'V ( I 

I) : IFCW<1THEN3232 

3230 IFABS(CC-CW)OABS(LL-LW)THEN3232 

3231 FF=1:G0SUB3280:F7=ABS(FF—1):IFF7=0T 
HENII=10+RI 

3232 NEXT11 :IFF7=0THENCE=NE:G0T03255 

3233 REM ... CAVALIER ... 

3234 FORI 1 = 11+RITQ12+RI : CW=F'H (II) : LW=F'V ( 

II) :IFCW<1THEN3241 

3235 IFG(CC,LL)=G(CW,LW)THEN3241 

3236 IFABS(CC-CW)<10RABS(CC-CW)>2THEN324 
1 

3237 IFABS (CC-CW) =1ANDABS (LL-LW) 02THEN3 
241 

3238 IFABS(CC-CW)=2ANDABS(LL-LW)< >1THEN3 
241 

3239 IFINT(GR(CC,LL)/17)«RTHEN3241 

3240 F9=l:G0SUB3400:IFF9=1THENF7=0:11=12 
+RI 







3241 NEXTIl!IFF7 =OTHENCE=NE:GÜTÛ3255 

3242 REM ... TOUR ... 

3243 FOR 11 = 13+RITO14+RI s CW=F'H (II): LW=F'V ( 
II):IFCW<1THEN3246 

3244 IFCCOCWANDLLOLWTHEN3255 

3245 FF= 1 : G0SUB3290: F7=ABS (FF-1 ) : ÏFF7==OT 
HENII=14+RI 

3246 NEXTIl:IFF7=0THENCE=NE:60TG3255 

3247 REM ... REINE . . . 

3248 11 = 15+R: CW=F'H (II) : LW=F'V ( 11 ) : IFCW<1T 
HEN3255 

3249 IFABS (CC-CW) OABS (LL-LW) THEN3252 

3250 FF=1:G0SUB3280:F7=ABQ(FF-1) 

3251 IFF7=0THENCE=NE:G0TD3255 

3252 IFCCOCWANDLLOLWTHEN3255 

3253 FF=1:G0SUB3290:F7=ABS(FF-1) 

3254 IFF7=0THENCE=NE 

3255 NEXTCE:RETURN 

3280 REM # TEST DIAGONAL # 

3281 I1=SGN(CC-CW):J=SGN(LL-LW) 

3282 IFABS(CC-CW)<2THEN32B5 

3283 F0RK=I 1T0CW-CC-I ÎSTEF'11 : IFGR (CC+K, L 
L+J*ABS(K))<>-lTHENFF=0:K=CW-CC-I1 

3284 NEXTK:IFFF=OTHENRETURN 

3285 IFINT(GR(CW,LW)/17)=RTHENFF=OtRETUR 
N 

3286 F9=l:G0SUB3400:FF=F9:RETURN 

3290 REM # TEST HGR/VERT tt 

3291 I1=SGN(CC-CW):J=SGN(LL-LW) 

3292 IFABS(CC-CW)<2THEN3295 

3293 FORK=I1T0CC-CW-11STEPI1 : IFGR(CW+K,L 
W) 0—1THENFF=0: K=CC-CW-11 

3294 NEXTK:IFFF=OTHENRETURN 

3295 IFABS(LL-LW)<2THEN3298 

3296 FORK= JTOLL—LW-J STEF'J : IFGR (CW, LW+K) < 
>-1THENFF=0:K=LL—LW-J 

3297 NEXTK:IFFF=OTHENRETURN 

3298 IFINT(GR(CC,LL)/17)=RTHENFF=0:RETUR 
N 

3299 F9=l:G0SUB3400:FF=F9:RETURN 

3300 REM ************************* 

3301 REM * TEST PRISE EN PASSANT * 

3302 REM ************************* 

3310 REM # TESTE VALIDITE DE LA PEP # 

3311 IFCP<2THENRETURN 

3312 IFR=0THENPP=CZ+7:LF-LX:G0T03314 

3313 PP=CZ-1:LP=LX 

3314 IFF'E (PP) =CP-1ANDLE <PP) =LPTHENF8=0 

3315 RETURN 

3399 REM 

3400 REM *********************** 

3401 REM * POSITION EVENTUELLE * 

3402 REM *********************** 

3410 REM # TESTE VALIDITE MVT VIRTUEL # 

3411 CZ=F'H (II): LZ=PV (II) 

3412 IF(CC <1ORCC> 8)OR(LL <1ORLL > 8)THENF9- 
0:RETURN 

3413 IF INT (GR (CC, LL) /17) =F'LTHENF9=0: RETU 
RN 

3414 REM # TESTE CAS D'ECHEC # 

341,5 PH (II) =CC : PV (II) =LL : F'9=GR ( CC, LL ) : GR 
(CZ,LZ)=-l:GR(CC,LL)=11:F3=1 

3416 IFP9>0THENPH(P?)=-1 :PV(P9)=-1 

3417 GOSUB1200 : I F r F3=OTHENF9=0 

3418 GR(CC,LL)=P9:GR(CZ,LZ)=11 : PH(II)=CZ 
: PV(11)=LZ 

3419 IFF'9>0THENF‘H (F'9) =CC: PV (F'9) =LL 

3420 RETURN 


REM 

REM 

REM 

REM 

REM 


************** 

* SON ERREUR * 
************** 

# VOIX 0 # 


>13 


3516 

3517 
3599 


BZ=0 
BZ=BZ+1 

POKESO,0:POKESO+1,5:P0KES0+2,153: F : 
KESO+3, 199 : F'OKESO+5,0 : POKESO+6, 128 

3514 P0KES0+4, 37 : FQRH= 1 TC) 1000 : NEX T : F'OKE: 
0+4,36 

3515 IFBZ=2THENRETURN 
F0RH=1T0400:NEXTH 
G0T03512 
REM 

REM ************** 

REM * SON DANGER * 

REM ************** 

REM # VOIX O # 

BZ=0 
BZ=BZ+1 

POKESO, 0: POKESO+1, 10: F'OKESO+2, 153: = 
QKESO+3,199:P0KES0+5,0:POKESO+6, 128 

3614 P0KES0+4, 65: FORH= 1 TOI000: NEXT: F'OKE: 
0+4,64 

3615 IFBZ=2THENRETURN 

3616 F0RH=1T0400:NEXTH 

3617 G0T03612 

3699 REM 

3700 REM *********** 

3701 REM * SON MAT * 

3702 REM *********** 

3710 REM # VOIX 0 # 

3711 BZ=0 

3712 BZ=BZ+1 

3713 POKESO,0:POKESO+1,5:PÛKESO+2,153: F : 
KESO+3,199: F'OKESO+5,0 : POKESO+6, 128 

3714 P0KES0+4, 37: F0RH=1T01000: NEXT; F'OKE: 
0+4,36 

3715 F0RH=1T0400:NEXTH 

3716 POKESO,0:POKESO+l,10:P0KES0+2,153: : 
0KES0+3, 199: F'OKESO+5, 0: POKESO+6, 128 

3717 P0KES0+4,65 : F ORH= 1TO1000 : NEX T : F'OKE : 
0+4,64 

3718 IFBZ=2THENRETURN 

3719 FORH=1T0400:NEXTH 

3720 G0T03712 
3799 REM 

10000 REM *************** 

REM * DATA PIECES * 

REM *************** 

REM # TOUR 1 # 


10001 
10002 
10010 
10011 
10012 

10013 

10014 
10020 
10021 
51 

10022 
23 

10023 
55 

10024 


DATA C 
DATA C 
DATA 1 
DATA : 
REM # 
DATA I 

DATA 1 

DATA : 

DATA : 


'•X <f V 7 


152, 

152, 

248, 

248, 

224, 

224 

7,7, 

31,3 

1,0, 

0 



224, 

224, 

224, 

248, 

248, 

0, 0 

IR 2 

# 





255, 

230, 

230, 

233, 

nnn 
—— T 1 

251,2 

255, 

103, 

103, 

151, 

97 1 

. “ 

« - 

251, 

oL. sJ 1 , 

251, 

231, 


255. - 

223, 

DOT 

noT 

231, 

-7 oc:; es oçs 

/ if - 


10030 REM # CAVALIER 1 # 

10031 DATA 0,0,0,1,3,7,15,15 

10032 DATA 0,0,64,224,240,248,240,248 

10033 DATA 31,30,28,4,1,3,0,0 


88 






0034 

DATA 

240,248,112,224,240,248 

,0,0 

0040 

REM 

44 CAVALIER 2 44 


0041 

DATA 

255,255,255,254,253,251 

■,247,2 

• / 

0042 

DATA 

255,255,191,95,239,247, 

239,24 


0043 DATA 238,237,227,251,254, 


0044 DATA 239,119,175,95,239,7,255,255 

0050 REM 44 FOU 1 44 

0051 DATA 0,0,3,7,15,15,15,7 

0052 DATA 0,0,0,128,192,192,224,224 

0053 DATA 7,3,1,1,15,31,0,0 

0054 DATA 224,192,128,128,240,248,0,0 

0060 REM 44 FOU 2 44 

0061 DATA 255j255,251,251,247,247,247,2 
il 


10062 

13 

DATA 

255,255,255, 

127, 

191, 

191,223,2 

10063 

55 

DATA 

251,253,254, 

254, 

241, 

224,255,2 

. 3064 

DATA 

223,191,127, 

127, 

143, 

-7 0 er cr ne; nu; 

f 9 .A. w s.J 9 jL w w 

; 3070 

REM 44 

PION 1 4 




10071 

DATA 

0 , 0 , •!> , 0 ' , 1 , 1 , 

1,3 



. 3072 

DATA 

0,0,192,192, 

128, 

128, 

128,192 

. 0073 

DATA 

T T T T 1 c. 7 
—' 1 - 1 , J ‘ , 1 «J , 'J 

; 1 , 0 , 

0 


. 3074 

DATA 

192,192,192, 

192, 

240, 

248,0,0 

. 0080 

REM 44 

■ PION 2 44 




.3081 

DATA 

ocrp 'ne;, o 

4.UÜ y 4wJ j 4.Ü4. y 

253, 

254, 

254,254,2 

« 3 

. 0082 

DATA 

255,255,63,191,1 

27, 1 

27,127,19 

. 0083 
55 

DATA 

*7 cr -7 OBSÎT our-rr 
•*:- 9 9 ■» 

253, 

243, 

224,255,2 

.0084 

DATA 

191,191,191, 

191, 

207, 

7,255,255 

. 3090 

REM # 

REINE 1 44 




: 091 

DATA 

0,0,17,17,25 

',25, 

27,3 

il 

. 3092 

DATA 

0,0,136,136, 

152, 

152, 

216,248 

. 0093 

DATA 

31,31,31,15, 

15, 7 

,0,0 

. 3094 

DATA 

248,248,248, 

240, 

240, 

224,0,0 

. 0100 

REM # 

REINE 2 44 




.3101 

DATA 

255,255,238, 

070 

4.-JU; 

230, 

OTA OOQ O 
.4 •— 1 9 j. .il 7 9 jL. 

35 

.0102 
> «T 

DATA 

255,255,119, 

119, 

103, 

103,167,2 

* «J 

.0103 

SC 

DATA 

239,239,239, 

247, 

247, 

248,255,2 

10104 

DATA 

247,247,247, 

9 TC> 

239, 

31,255,25 

10110 

REM 44 

ROI 1 # 




13111 

DATA 

0,0,1,7,7,1, 

1,3 



.0112 

DATA 

0,0,128,224, 

224, 

128, 

128,192 

.3113 

DATA 

15,31,31,31, 

15,7 

,0,0 


10114 

DATA 

240,248,248, 

248, 

240, 

224,0,0 

. 3120 

REM # 

ROI 2 44 




.0121 

DATA 

255,255,254, 

249, 

249, 

O t". A O eu; a 0 

. 4 L \~) r 9 .iu. v -1 r 9 

. - 

.0122 

’l 

.3123 

DATA 

255,255,127, 

159, 

159, 

127,127,1 

DATA 

253,239,239, 

239, 

247, 

248,253,2 

55 

.0124 

DATA 

207,247,247, 

247, 

239, 

31,255,25 


. 3130 
. 3131 
: 199 
. 3200 
. 3201 


REM # FINI 44 
DATA -1 
REM 

REM ************************** 
REM * DATA BRILLE DES PIECES * 


10202 

REM ************************** 

10210 

REM 44 

NOIRS 44 

10211 

DATA 

1,1,29,192 

10212 

DATA 

2,1,27,200 

10213 

DATA 

3,1,25,208 

10214 

DATA 

4,1,31,224 

10215 

DATA 

5,1,32,232 

10216 

DATA 

6,1,26,208 

10217 

DATA 

7,1,28,200 

10218 

DATA 

8,1,30,192 

10219 

DATA 

1,2,17,216 

10220 

DATA 

2,2,18,216 

10221 

DATA 

3,2,19,216 

10222 

DATA 

4,2,20,216 

10223 

DATA 

5,2,21,216 

10224 

DATA 

6,2,22,216 

10225 

DATA 

7,2,23,216 

10226 

DATA 

8,2,24,216 

10227 

REM 41 

BLANCS # 

10228 

DATA 

1,7,1,216 

10229 

DATA 

2,7,2,216 

10230 

DATA 

3,7,3,216 

10231 

DATA 

4,7,4,216 

10232 

DATA 

5,7,5,216 

10233 

DATA 

6,7,6,216 

10234 

DATA 

7,7,7,216 

10235 

DATA 

8,7,8,216 

10236 

DATA 

1,8,13,192 

10237 

DATA 

2,8,11,200 

10238 

DATA 

3,8,9,208 

10239 

DATA 

4,8,15,224 

10240 

DATA 

5,8,16,232 

10241 

DATA 

6,8,10,208 

10242 

DATA 

7,8,12,200 

10243 

DATA 

8,8,14,192 

10299 

REM 


10300 

REM ********************* 

10301 

REM * 

DATA DEF'L. PIECES * 

10302 

REM ********************* 

10310 

REM 41 

FOU # 

10311 

DATA 

4,1,1,1,-1,-1,1,-1,-1,0,0 


, 0 , 0 , 0,0 

10320 REM 44 CAVALIER # 

10321 DATA 8,1,2,1,-2,-1,2,-1,-2,2,1,2,- 

1 ,- 2 , 1 ,- 2,-1 

10330 REM 44 TOUR # 

10331 DATA 4,1,0,-1,0,0,1,0,-1,0,0,0,0,0 

, 0 , 0,0 

10340 REM 44 ROI/REINE # 

10341 DATA 8,1,0,-1,0,0,1,0,-1,1,1,1,-1, 
-1,1,-1,-1 

10399 REM 

10400 REM ********************** 

10401 REM * DATA CAPTURE PIECE * 

10402 REM ********************** 

10410 REM # PIONS BLANCS 44 

10411 DATAO,12,9 

10412 DATAO,12,9 

10413 DATAO,12,9 

10414 DATAO,12,9 

10415 DATAO,12,9 

10416 DATAO,12,9 

10417 DATAO,12,9 

10418 DATAO,12,9 

10419 REM # TOURS BLANCHES 44 

10420 DATAI,11,9 

10421 DATAI,11,9 

10422 REM # CAVALIERS BLANCS # 









10423 DATA2,11,7 

10449 DATA9,-4,5 

10424 DATA2,11,7 

10450 REM # REINE NOIRE # 

10425 REM # FOUS BLANCS # 

10451 DATA10,-4,3 

10426 DATA3,11,5 

10452 REM # ROI NOIR # 

10427 DATA3,11,5 

10453 DATA11,-4,2 

10428 REM # REINE BLANCHE # 

10499 REM 

10429 DATA4,11,3 

10500 REM **************** 

10430 REM # ROI BLANC # 

10501 REM * DATA SPRITES * 

10431 DATAS,11,2 

10502 REM **************** 

10432 REM # PIONS NOIRS # 

10510 REM # SPRITE 0 # 

10433 DATAS,—3,9 

10511 DATA 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,. 

10434 DATA6,-3,9 

, 255 , 255 , 0,255,255,0 , 252,63,0,252 

10435 DATAS,-3,9 

10512 DATA 63,0,240,15,0,240,15,0,192,3, 

10436 DATAS,-3,9 

0,192,3,0,192,3,0,192,3,0,240,15,0 

10437 DATA6 , -3,9 

10513 DATA 240, 15,0,2*52,63,0, 252,63,0,21 

10438 DATAS,-3,9 

5,255,0,255,255,0 

10439 DATAS,-3,9 

10514 DATAO 

10440 DATAS,-3,9 

10520 REM # SPRITE 1 # 

10441 REM # TOURS NOIRES # 

10521 DATA 0,0,0 , 0,0 , 0 , 0 , 0 , 0 , 0 , 0, 0 , 0 , 0 , 

10442 DATA7,-4,9 

,255,255,0,255,255,0,255,255,0,255,255 

10443 DATA7,-4,9 

10522 DATA 0,255,255,0,255,255,0,255,25: 

10444 REM # CAVALIERS NOIRS # 

,0,255,255,0,255,255,0,255,255,0,255 

10445 DATAS,-4,7 

10523 DATA 255,0,255,255,0,255,255,0,25: 

10446 DATAS,-4,7 

,255,0,255,255,0,255,255,0 

10447 REM # FOUS NOIRS # 

10524 DATAO 

10448 DATA9,-4,5 
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>0 


LO 

PO 

CO 
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BO 
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16 
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COMMODORE 64 


EDITEUR DE SPRITES 


r - 

|C3 
r. 0 

CO 

CO 


Énième représentant du genre, cet éditeur 
de lutins se distingue par une grande souplesse 
et une accessibilité irréprochable. 


10 

REM ************************ 


85 

PRINT"l«I«*l/OTRE CHOIX 1-4?" 

15 

REM * 

* 


90 

GETA$:IFA$="1"THENGOTO1500 

20 

REM * 

EDITEUR DE SPRITES * 


91 

IFA*="2"THENG0T0260 

25 

RÈM * 

* 


92 

IFA$="3"THENGOTO1330 

30 

REM * 

PAR * 


93 

IFA$="4"THENGOSUB1950:G0T079 

35 

REM * 

* 


94 

G0T090 

40 

REM * 

FRANÇOIS PETERS * 


95 

P0KE53269,0: FORI = 1T0504: A(I)=0:NEXTI 

45 

REM * 

* 


96 

Rem 

50 

REM * 

* 


97 

REM * GRILLE * 

55 

REM * 

* 


98 

REM 

60 

REM * 

COMMENCE LE 23/03/86 * 


100 

PQKE53280,6:P0KE53269,0:P0KE650,121: 

65 

REM * 

TERMINE LE 31/03/86 * 


: Y= 

3:X=27:T=1 

70 

REM * 

* 


110 

PRINT"lsis*MM*lsEDITEUR DE SPRITE." 

75 

REM * 

COPYRIGHT (C> 1986 * 


140 

F0RG=1T021 

76 

REM * 

* 


150 

FQRI=YT0Y+23 

77 

REM ************************ 


160 

P0KE1102+1,160 

78 

CLR:DIMX(63): DIMA(504):P0KE53280,4:V= 

165 

P0KE55374+I,A(T) 

53248:G0SUB1984 


167 

T=T+1 

79 

PÛKEV+21 

,O:PRINTCHR$(142): PRINT 

" Si«I«I«la 

170 

NEXTI 

HOUE VOULEZ 

VOUS FAIRE?" 


180 

Y=Y+40:X=X+40 

80 

PR INT "[««*11. VOIR LES INSTRUCTIONS." 

190 

NEXTG 

81 

PR INT "I«*I2. CREATION D'UN SPRITE. 

II 

200 

RETURN 

82 

PR INT "1«*I3. VOIR LES SPRITES QUI 

SONT E 

240 

REM 

N MEMOIRE." 



243 

REM * DESSIN DU SPRITE * 

83 

PRINT“[«*I4. EXEMPLE DE PROGRAMME 

POUR U 

246 

REM 

N SPRITE.“ 



260 

G0SUB95 


. i 

-. i 
50 I 
>1- 


'45 
E E' 
'30 
-I Fi 
*35 
~iO 
E S 
*s5 
~70 
: eri 
—5 
= 

'30 


'=5 

joo 

1.5 
:. 0 


90 














90 B=1105:L=S5377:C-l:H=56320 
00 GETA$ 

05 IFA*=" "ANDA(C)=1THENA(C)=0 
10 IFF'EEK (H) =1'26THENC=C~24: B=B~40: L=L..-4 
:PQKEB+40,160 

20 IFF'EEK (H) =125THENC=C+24: B=B+40: L=L+4 
: F’OKEB-40, 160 

730 IFF’EEK < H ) = 123THENC=C— 1 : B=B-1 : L=L-:L : P 
IKEB+1)160 

740 IFPEEK (H) -119THENC=C+-1 s B=B+1 : L-L+l s P 

ZfCEB-l, 160 

750 I FF'EEK < H ) = 111 AND A ( C ) --0THENA (0=1 
760 IFF'EEK (H) =103THENA (0=1: POKEL, 1 : F'OKE 
7- , 160 : B=B+1 : L=L+1 • C=C+1 

770 IFF'EEK (H) =107THENA (0=1: POKEL, 1 : F'OKE 
I-, 160: B=B-1 : L=L-1 : C=C-1 

730 IFPEEK (H ) = 11OTHENA (0=1: POKEL, 1 : F'OKE 
I- ,160: B=B-4Û : L=L-40 : C=C-24 
790 1 FF'EEK (H) =109THENA (0=1: POKEL, 1 : F'OKE 
I-, 160 : B=B+40 : L=L+40 : C=C+24 
-50 F'OKEB, 86: POKEL, A (C) 

-60 IFA$="S"THENG0T0601 
: DO 60T0300 
-7 93 REM 

-7 95 REM * CALCUL DU SF'RITE * 

797 REM 

DI FORI = 1 T021 : F'RINT "(*)” : NEXTI 
; D2 F'RINT"WUN INSTANT, JE CALCULE." 
z D3 T= 1 

-10 F0RG=1T063 
-.20 FOR I = 1T08 

:30 IFA < T ) = 1AND1 = 1THENX(G)=X(G)+128 
: 40 IFA(T)=1ANDI=2THENX(G)=X(G)+64 
: 50 IFA(T)=1ANDI=3THENX(G)=X(G)+32 
;bû IFA(T)=1ANDI=4THENX (G)=X(G)+16 
:70 IFA (T) =1 ANDI=5THENX (G) =X <G).+8 
;30 IFA(T)=1ANDI=6THENX(G)=X(6) +4 
: 90 IFA(T)=1ANDI=7THENX(G)=X(G)+2 
“00 IFA(T)=1ANDI=8THENX(G)=X(S)+1 
”10 T=T +1 

“20 NEXTI :F'RINT"isf G: NEXTG 
“30 1 = 1 : PRINT 
-40 FQRL=1TQ21 


'50 F'RINT">M»»»»M*»***M*»*M*»rX ( 1 > 

1 = 1 + 1 

- 60 F'R I NT " »»»»»»»»•»»»»»»»»»»» 


7 • ,L'ORDINATEUR" 

.745 F'R INT "CALCULERA LES DONNEES DU SPRI 
“E ET" 

.750 F'R INT "LES AFFICHERA A L'ECRAN (IL L 
.7 FAUDRA" 

.755 F'R INT" UN MOMENT POUR CALCULER)." 
.760 PRINT"APRES CELA,IL VOUS SERA DEMAN 

:e si" 

.765 F'R INT "VOUS VOULEZ LE CORRIGER." 

.770 F'RINT"SI NON, L. ' ORDINATEUR VOUS DEMA 
OERA A" 

.775 PR INT "QUELLE ADDRESSE MEMOIRE IL. FA 
.' STOQUER" 

;780 F'RINT"LE SF'RITE. (VOTRE REPONSE DEVR 

- ETRE" 

785 F'R INT "SUPERIEUR A 220)." 

790 PBINT"[n**M»Wït4PF'UYEZ SUR UNE TOtJC 

Il 

795 GETA$:IFA*=""THEN1795 
.300 F'RINT" Hil:tn»»»»»»»»ftll INSTRUCTIONS 3" 

305 FRI NT “ Hillk»|i|il-" 

310 PR INT "APRES AVOIR ENTRE L ' EMF'LACEME 


NT MEMOIRE" 

1815 F'R INT "CHOISI, LE. SF'RITE SERA AFFICHE 
NORMALE-" 

1820 F'RINT"MENT, DILATE VERTICALEMENT, HOR 
IZONTALE-'- 

1825 F'R INT "MENT ET DANS LES DEUX SENS." 

1830 PR I NT " ENSUI TE, PLUS IEURS OP TIONS VOLJ 
S SERONT" 

1835 F'R INT "PROPOSEES. 

1840 F'R INT "SI VOUS PRENEZ L'OPTION ' METT 
RE LES" 

1845 F'R INT "DONNEES DU SF'RITE EN LIGNES', 
IL VOUS" 

1850 F'R INT "SERA DEMANDE A PARTIR DE QUEL 
LE LIGNE" 

1 855 F'R INT " ( MINIMUM 2000 ) , PU I S, SI VOUS V 
OULEZ" 

1860 F'R INT "METTRE UNE LIGNE DE REM AVANT 
LES" 

1865 F'R INT "DONNEES. SI VOUS LE VOULEZ, VOU 
S DEVREZ" 

1870 F'RINT"ENTRER LA PHRASE." 

1875 F'R INT "APRES' LES LIGNES SERONT INSCR 
I TES A" 

1880 F'R INT "RAISON DE 7 DONNEES SEPAREES 
PAR UNE" 

1885 F'RINT"VIRGULE ET PAR LIGNE'." 

1886 PRINT"Hi»»»»MMïAPPUYEZ SUR UNE TO 
UCHE." 

1887 GETA$:IFA$=""THEN1887 

1889 PR I NT " NSTRUCT I ONS 4 " s PR 

I NT " »»»»»»»»»!-" 

1890 PRINT"SI AU DEBUT VOUS PRENEZ L'OPT 
ION 'VOIR" 

1895 PR INT "LES SPRI TES EN MEMOIRE'-, VOUS 
PASSEREZ" 

1900 F'R INT "DIRECTEMENT A L'AFFICHAGE DU 
SF'RITE" 

1905 F'RINT" (NORMAL, DILATE HORI ZONTALEMEN 
T...) ET" 

1910 F'R INT "AU RESTE QUI VOUS A ETE EXPLI 
QUE F'RECED—" ; 

1915 F'R INT"EMENT A L'EXCEPTION DE L'OPTl 
ON 'COR-" 

1920 F'RINT"RIGER LE SF'RITE' PUISQUE VOUS 
N'EN AVEZ" 

1921 F’R INT "PAS ENCORE CREER!" 

1922 P*RINT" ATTENTION ! NE SORTEZ PAS HORS 
DE L'ECRAN" 

1923 F'R INT "AVEC VOTRE CROI X . ENFIN, EN PRE 
SSANT LE" 

1924 F'R INT "BOUTON ET EN BOUGEANT LE JOYS 
TICK,VOUS" 

1925 F'R INT "T IREZ UN TRAIT CONTINU DANS L 
A DIRECTION"; 

1926 F'RINT"VOULUE. " 

1927 F'RINT "SI VOTRE CROIX EST HORS DE LA 
GRILLE," 

1928 F'RINT"ARRETEZ LE PROGRAMME ET RELAN 
CE LE PAR 'RUN'."; 

1929 PRINT“APRES AVOIR AFFICHE LES DONNE 
ES DU"; 

1930 F'R INT "SF'RITE EN LIGNE, VOUS N ' AUREZ 
PLUS QU'A" 

1931 PRINT"REMONTER LE CURSEUR EN HAUT D 
E L'ECRAN," 

1932 PRINT"A APPUYER UN MOMENT SUR RËTUR 
N ET LES" 



















1933 F'R INT "LIGNES SERONT MISES EN MEMO IR 
E. " 

1934 PRINT"»»»»»iaStVEZ-VOUS CDMF : 'RIS? (O/N) 

II 

1935 GETA$:IFA$="0"THENG0T079 
1940 I FA$="N"THENGOTO1500 
1945 GOTO1935 

1947 REM 

1948 REM * EXEMPLE DE PROGRAMME * 

1949 REM 

1950 PRINT"W®*MEXEMPL.E DE PROGRAMME:" 
1952 PRINT "MUE REM PROGRAMME POUR AFPICH 


ER UN SF'RITE" 

1955 PRINT"»110 R=53248" : PRINT" M20 FOR 1=0 
T063:READX:P0KEB32+I,X :NEXTI" 

1960 PR I NT " 1*50 P0KE2040,13: POKER, 150 : POK 
ER+1,100" 

1965 F'RINT" W40 POKER+21,1 1 POKEV+39, 1 “ 

1967 PR INT" I«EO DATA." 

1970 PR INT" M«I*MW*lïPREBSE UNE TOUCHE." 

1975 GETA*:IFA$=""THENGOTO1975 

1980 RETURN 

1981 REM 

1982 REM * PRESENTATION * 


COMMODORE 64 


EVAZIOON 

Dans ce programme composé de trois parties, 
vous incarnez un explorateur bloqué dans un temple 
inca. Réussirez-vous à en sortir vivant? 


20 PR INT" SJaMRUN INSTANT, SVP. "■ 

200 F0RI-20000T020371sREADD:POKEI,D:NEXT 


310 DATA21,31,51,25,30,38,25,30,12,25,30 
,51,28,49,51,31,165,38,31,165,12,31,165 
320 DATA76,25,30,25,28,49,25,31,165,25,3 

3.135.51.23.181.51.28.49.51.25.30.51 
330 DAT AO,0,90 

340 DATA25,177,51,25,177,25,32,94,25,32, 

94.25.28.214.25.32.94.25.28.214.25 

350 DATA25,177,51,25,177,25,32,94,25,32, 

94.25.28.214.25.32.94.76.32.94.51 

360 DATA32,94,25,28,214,25,25,177,25,32, 
94,25,38,126,25,32,94,25,38,126,51,38 
370 DATA126,25,32,94,25,25,177,25,32,94, 
25,28,214,76,25,177,51,25,177,25,32,94 
380 DATA25,32,94,25,28,214,12,25,177,12, 

32.94.25.25.177.25.32.94.51.32.94.25 
390 DATA28,214,12,25,177,12,32,94,25,28, 
214,25,25,177,76,0,0,99 

400 DATA28,214,25,25,177,25,22,227,25,34 
,75,76,28,214,25,25,177,25,22,227,25 
410 DATA38,126,76,25,177,25,30,141,25,38 
,126,25,34,75,51,28,214,25,25,177,25 
420 DATA22,227,25,34,75,76,28,214,25,25, 

177.25.22.227.25.38.126.76.25.177.25 
430 DATA30,141,25,38,126,25,34,75,51,22, 
227,25,28,214,51,25,177,25,22,227,76 
440 DAT AO,0,99 

450 DATA20,99,25,20,90,12,30,140,25,30,1 


40.12.30.140.25.30.140.12.34.74.25 

460 DATA27,55,12,30,140,25,30,140,12,34, 

74 . 25 . 34 . 74 . 128 . 30 . 140 . 76 . 30 . 140.25 

470 DATA30,140,12,40,199,25,30,140,12,30 
,140,25,27,55,12,25,176,25,22,227,12 
480 DATA25,176,25,25,176,12,25,176,25,30 
,140,12,30,140,25,27,55,12,25,176,25 
490 DATA22,227,12,20,99,25,25,176,12,30, 
140,76,34,74,25,27,55,12,22,227,25,19,62 
500 DATA12,20,99,76 

6900 FOR 1 = 15616T01 63 1 9 : RE ADD : F'OKE I, D : NE X 


T 

7000 REM 1 BONHOMME D RE 

7010 DATAO,120,0,0,246,0,0 

7020 DATA252,0,0,120,0,0,48 

7030 DATAO,0,252,0,1,254,0 

7040 DATA1,254,0,2,253,0,4 

7050 DATA252,128,12,252,192,0,252 

7060 DATAO,0,112,0,0,112,0 

7070 DATAO,112,0,0,48,0,0 

7080 DATA48,0,0,48,0,0,48 

7090 DATAO,0,48,0,0,60,0,0 

7100 REM 2 BONHOMME D MAR 

7110 DATAO,120,0,0,246,0,O 

7120 DATA 252, 0, 0, 120, 0, 0, 48 

7130 DATA 0, 0, 252, 0, 1, 254, 0 

7140 DATA 2, 253, 0, 12, 252, 192, 48 

7150 DATA 252, 48, 0, 252, 0, 0, 252 

7160 DATA 0, 0, 120, 0, 0, 120, 0 

7170 DATA 0, 232, 0, 1, 140, O, 25 

7180 DATA 140, 0, 6, 12, 0, 0, 6 

7190 DATA 0, 0, 3, 0, 0, 1, 192,0 

7200 REM 3 BONHOMME G RE 


7210 

DATA 

0, 120, 0, 

1, 188, 0, 

0 

7220 

DATA 

252, 0, 0, 

120, 0, 0, 

48 

7230 

DATA 

0, 0, 252, 

0, 1, 254, 

0 

7240 

DATA 

1, 254, 0, 

2, 253, 0, 

4 

7250 

DATA 

252, 128, 

12, 252, 192 

, 0, 251 

7260 

DATA 

0, 0, 56, 

0, 0, 56, 0 


7270 

DATA 

0, 56, 0, 

0, 48, 0, 0 


7280 

DATA 

48, 0, 0, 

48, 0, 0, 48 


7290 

DATA 

0, 0, 48, 

0, 0, 240, 0 

,0 

7300 

REM 

4- BONHOMME 

G MAR 


7310 

DATA 

0, 120, 0, 

1, 188, 0, 

0 

7320 

DATA 

252, 0, 0, 

120 , 0 , 0 , 

48 

7330 

DATA 

0, 0, 252, 

0, 1, 254, 

0 

7340 

DATA 

2, 253, 0, 

12, 252, 19 

2, 48 

7350 

DATA 

252, 48, 0 


252 

7360 

DATA 

0, 0, 120, 

0, 0, 120, 

0 

7370 

DATA 

0, 108, 0, 

0, 198, 0, 

0 

7380 

DATA 

198, 224, 

1, 131, 0, 1 

, 128 


92 
















7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

3000 

3010 

8020 

3030 

3040 

3050 

3060 


DATA 0 , •.!> , 


0 , 14 , 0 , 0,0 


REM BONHOMME DESC 1 
DATA 0, 56, 0, 0, 84, 0, 0 
DATA 124, 0, 0, 108, 0, 0, 56 

DATA 0, 0, 124, 0, 3, 255, 128 

DATA 7, 255, 192, 8, 254, 32, 

DATA 254, 16, 48, 254, 24, 0, 

DATA 0, 0, 108, 0, 0, 108, 0 

DATA 0, 108, 0, 0, 108, 0, 0 

DATA 108, 0, 0, 12, 0, 0, 12 

DATA 0, 0, 12, 0, 0, 30, 0,0 

REM BONHOMME DESC 2 
DATA O, 56, O, U, 84, 0, V 
DATA 124, 0, 0, 108, 0, 0, 56 

DATA 0, 0, 124, 0, 3, 255, 128 

DATA 7, 255, 192, 8, 254, 32, 

DATA 254, 16, 48, 254, 24, 0, 

DATA 0, 0, 108, 0, 0, 108, 0 

DATA 0, 108, 0, 0, 108, 0, 0 

DATA 108, 0, 0, 96, 0, 0, 96 
DATA 0, 0, 96, 0, O, 240, 0,0 
REM MONSTRE 1 

DATA 0, 16, 0, 0, 16, 0, 0 
DATA 16, 0, 0, 16, 0, 0, 16 
DATA O, 2, 56, 128, 1, 125, 0 

DATA 0, 254, 0, 1, 187, 0, 3 

DATA 41, 128, 127, 255, 252, 3, 

DATA 128, 1, 131, 0, 0, 198, 0 

DATA 1, 125, 0, 2, 56, 128, 0 

DATA 16, 0, 0, 16, 0, 0, 16 

DATA 0, 0, 16, 0, 0, 16, 0,0 

REM MONSTRE 2 
DATA 0, 0, 0, 0, 0, 0, 16 

DATA 0, 16, 8, 16, 32, 4, 16 


16 

254 


16 

254 


199 


DATA 64, 


56, 128, 1, i: 


O 


DATA 0, 254, 0, 1, 187, 0, 3 

DATA 41, 128, 15, 255, 224, 3, 

DATA 128, 1, 131, O, 0, 198, 0 

DATA 1, 125, 0, 2, 56, 128, 4 
DATA 16, 64, 8, 16, 32, 16, 0 
DATA 16, 0, 0, 0, 0, 0, 0,0 
REM COLLIER 

DATA 0, 0, 0, 0, 0, 0, 0 
DATA 0, 0, 0, 0, O, 128, 0 
DATA 1, 64, 0, 2, 64, 0, 2 


199 


4, 


4, 16 


DATA 0, 8, 8, 0, 16, 4, O 

DATA 32, 2, 0, 64, 1, 126, 128 

DATA 0, 195, O, 0, 66, 0, 0 

DATA 126, 0, 0, 129, 0, 1, 0 

DATA 128, 0, 0, 0, 0, 0, 0,0 
REM DIAMANT 

DATA 0 -, 0, 0, 15, 255, 240, 16 

DATA 0, 8, 44, 0, 52, 67, 0 
DATA 194, 128, 195, 1, 128, 60, 

DATA 128, 60, 1, 

DATA O, 194, 44, 

DATA 8, 15, 255, 

DATA 0, 0, 0, 0, 

DATA 0, 0, 0, 0, 

DATA 0, 0, 0, O, 

REM ANNEAU 
DATA 0, 56, 0, 

DATA 254, 0, C 
DATA O, 0, 


0, 


DATA O, 16, 16, 
DATA 16, 8, 0, 


128, 195, 1, 67 

_k"" 

0, 52, 16, 0 

260 DATA 

240, 0, 0, 0 

270 DATA 

0, 0, 0 

280 DATA 

0, 0, 0 

290 DATA 

0, 0, 0, 0 

-" 


300 DATA 

124, 0, 0 

1" 

24, 0, 0, 56 

310 DATA 

, 3, 1, 128 

1" 

0, 32, 16 

320 DATA 

, 16, 16, 0 

1" 

, 4, 0, 64 

330 DATA 


8070 DATA 3, 1, 128, 


198, O, 0 


8080 DATA 56, 0, 0, 0, 0, 0, 0 
8090 DATA 0, 0, O, 0, 0, 0, 0,0 
8095 P0KE53280,11 :P0KE53281,11 
8100 PRINT“MkLQAD PARTIE 2" 


10 PR I NT " Isj" 

20 T=2000Os PRINT" MJN INSTANT,SVP."s FORI = 
OTQ2000:NEXTI 

30 F'R INT"IMïMnlRlRr : FOR I-0T020: READA$s PRINT 
A$:NEXT:G0SUB70 

40 F'R I NT " WulBWlR]" : FOR I =0T020 : READA* : PR I NT A 
$ :NEXT:GOSUB70 

50 PR I NT " MiHiUMn]" s FOR I =0T017 : READA* : PR I NT A 
$:NEXT s G0SUB70 

60 P RI NT 1 ' MiUiHMAl 1 ' s F 0 RI = O T 0 4 : R E A D A S s P RIN T A $ 
:NEXT s G0SUB70:G0T0730 

70 T =T +1000 *. FOR I =0T0999 s POKET+1, PEEK ( 102 
4+1):NEXT:RETURN 

80 DAT fl " wÊmmmmmmimiÊmmmmmmm mmmmmmÊmmmmm mmmmmmmmmm 

90 DATA" 

I" 

100 DATA" 

I" 

110 DATA" 

| Il 

120 DATA" —», 


130 DATA" 

I" 

140 DATA" 

I" 

150 DATA" 

I" 

160 DATA" 

1" 

170 DATA" 

... 

180 DATA" 

I" 

190 DATA" 

I" 

200 DATA" 

I" 

210 DATA" 

I" 

220 DATA" 

I" 

230 DATA" 

I" 

240 DATA" 

I" 

250 DATA" 


I 

L. 


iimu" 





















i" 







730 P RIN T " IsWkIkL OAD PARTIE 3" 

340 

DATA" 




1 


1 


350 

DATA" 




1 


1 

10 REM ******************* 


1" 







20 REM * EVAZIOON PART.3 * 

360 

DATA" 




1 


1 

30 REM * * 


1" 







40 REM * PAR * 

370 





1 


1 

50 REM * * 


1" 







60 REM * FRANCOIS PETERS * 

380 

DATA" 




1 

1 

1 

70 REM * * 









80 REM * * 

390 

DATA" 




1 

1 

1 

90 REM * * 


1" 







100 REM* SUR CBM 64 * 

400 

DATA" 




1 

1 

1 

110 REM* * 


1" 







120 REM******************* 

410 

DATA" 





1 

1 

130 GRA=0:P0KE2040,244:GQT0750 


1" 







140 V=53248:POKEV+31,0 

420 

DATA" 




1 

1 

1_ _ 

150 P0KE2042,252iPQKEV+41,7 


1" 







160 P0KE2043,253:POKEV+42,1 

430 

DATA" 




il 

| 


170 P0KE2044,254;PQKEV+43,7 


1" 







180 VI=3:J=0:LEV=Û s L <1 )=5000: L < 2 ) =6000 

440 

DATA" 




1 

1 


190 G0SUB200:G0SUB900:G0T0230 


1“ 







200 X=25:Y=61:C=60:D=229 

450 





1 

1 


210 A=1 :N=0:H=56320:U=53278:R=2:TT=31 


1" 







220 RETURN 

460 

DATA" 




1 

1_ 


230 POKEV+21,3.1 









240 P0KE2041,250 

470 

DATA" 




B" 



250 IFPEEK(H)=127THENG0TÜ300 

480 

DATA" 




au 



260 IFPEEK <H> =119THENP0KE2Q40,245:X=X+6s 

490 

DATA" 




|K1" 



G0SUB98O; F'OKEV, X s P0KE2040,244: G0T03Û0 

500 








270 IFPEEK(H)=123THENP8KE2040,247;X=X-6s 

■mmJkIkIhJ 1 1 







G0SUB980: F'OKEV, X : PÜKE2040,246: G0TÜ300 

510 

DATA" 







280 IFPEEK (H) =126THENF'0KE2040,249: Y=Y-6: 


II 







G0SUB980:POKEV+1,Y:P0KE2040,248:G0T0300 

520 

DATA" 

1 


1 



1 " 

290 IFPEEK (H) = 125THENF'QKE2040,249: Y=Y+6: 

530 

DATA" 

1 


1 



1 " 

G0SUB980:POKEV+1,Y:P0KE2040,248 

540 

DATA" 

1 


1 



1 " 

300 POKEV+42,1 :J=J+1 

550 

DATA" 

1 


1 



1 " 

310 I FR< > 1ANDR02AND0 XTHENC=C—6RA 

560 

DATA" 

1 

1 

1 

1 


i 0 

320 IFRO1 ANDR<>2ANDC<XTHENC=C+GRA 









330 IFD>YTHEND=D-GRA 

570 

DATA" 

1 

1 

1 

1 


il 1 

340 IFPEEK(V+31 ) =1THENVI=VI-1 : G0SUB880 









350 IFD<YTHEND=D+GRA 

580 

DATA" 

I 

1 

1 

I 


1 1 

360 IFR=1THENC=C+GRA 









370 IFR=2THENC=C-GRA 

590 

DATA" 

1 

1 

1 

1 


1 

380 IFPEEK(53278)=3THENVI=VI-1 : P0KEV+30, 

II 








0:60SUB880 

600 

DATA" 

1 

1 

1 

1 


1 

390 IFC>255THENC=0:R=R+2 


W 







400 IFC<0THENC=255:R=R-2 

610 

DATA" 

1 

1 

1 

1 


1 

410 IFPEEK(V+31 ) =3THENVI=VI-1 : G0SUB88Ü 

II 








420 IFPEEK (U) =5THENJ=J+300: TT=TT-4 : F'OKEV 

620 

DATA" 

1 

1 

1 

I 


1 

+21,TT 

II 








430 IFPEEK(U)=9THENJ=J+1000:TT=TT-8:GOTO 

630 

DATA" 

1 

1 

1 

L 


Rwonuww.uuu.nnl-''' nuu 

900 


II 







440 IFF'EEK (U) =17THENJ=J+100 : TT=TT-16 

640 

DATA" 


1 


1 

II 


450 POKEV+42,7 : P0KE2041,251 : F'OKEV, X : F'OKE 

650 

DATA" 


1 


1 

II 


V+1, Y : POKEV+2, C : POKEV+3, D : F'OKEV+16, R 

660 

DATA" 


1 


1 

II 


460 POKEV+21,TT : POKEV+42,11 

670 

DATA" 


1 


1 iKl" 



680 

DATA" 







»»»»»»»! ; VI ; " »»»»»»! ; LEV 

_IRMHI" 







480 IFVI=OTHEN1080 

690 

DATA" 







490 IFJ<L(2)ANDJ>L ( 1 ) THENVI=VI+1 : L ( 1 ) =L ( 


[mm" 







1 ) +5000 : L (-2 ) =L ( 2 ) +5000 

700 

DATA" 







500 F'OKEV+30,0 : POKEV+31,0: G0T0240 

_ isMsr 







510 POKEV+21,0 : TA=21000 : 00=7 : GOSUB1320 

710 

DATA" 







520 G0SUB200 


WW" 







530 F'OKEV+4, 30 : POKEV+5 , 96 

720 

DATA" 







540 F'OKEV+6, 135:P0KEV+7, 130 

_www 







550 POKEV+8,202 : POKEV+9,201 


94 



































P0KE54276,128 
RETURN 

POKEV+21,3: FOR I = 1T0250 : F'QKEV+21,2 : P 
OKEV+21,3:NEXT 

1 090 POKEV+21,0: FR INT "SS" s P0KE5328 1,11s PO 
KE53280,12 

1100 PR 1 NT " A h E O V 

E R" 

1110 F'R I NT " ■SU'InMMMVMMBIVOUS ETES MORT 



560 RETURN 

570 POKEV+21,0:TA=22000;00=6:S0SUB1320 
580 G0SUB20Û 

590 P0KEV+4,30:POKEV+5,93 
600 PQKEV+6,30:P0KEV+7, 229 
610 POKEV+ 8 ,202:POKEV+9,201 
620 RETURN 

630 POKEV+21,OsTA=23000:C0=1:B0SUB1320 
640 G0SUB200 

=50 F‘OKEV+4, 158: POKEV+5, 128 
660 F'OKEV+ 6 , 195: POKEV+7,228 
=70 POKEV+8,74:POKEV+9,130 
=80 RETURN 

=90 POKEV+21,0:TA=23000:C0=3:G0SUB1320 
"00 G0SUB200 

710 POKEV+4,33:POKEV+5,170 
"20 F'OKEV+ 6 ,33 : POKEV+7,227 
"30 POKEV+ 8 , 33 : POKEV+9, 100 
■'40 RETURN 

"50 PRINT”isi" : P0KE53269, 0: POKE532BO, 11 s PO 
E53281,12 

"60 F0RI=0T0119:R=INT <15*RND(1)) 

"70 F'OKE I +1024, 160 : F'OKE I +55296, R : POKEI +1 
904,160:POKE1+56176,R:NEXTI 

'80 PRINT"!3HHlHimfllR»»»»»»»»»»»E V A Z I 0 

0 N" 

'90 PRINT"WIlklIIWIMEiY FRANÇOIS PETE 
RS" 

300 PRINT”MtlIINOVICE (1) DU SUPER PRO 
2 ) 7777 » 

310 GETA*:IFA$="1"THENGRA=1:G0T0840 
320 IFA$="2"THENGRA=2:G0T0840 
330 G0T0810 

340 PR I NT" IBM«PRESSE LE BOUTON DU JOYSTIC 
POUR JOUER" 

350 GOTO1250 

360 0NLEVG0SUB510,570,630,690 
370 RETURN 

380 P0KEV+30, O: F'OKEV+31, O: 0NLEVG0SUB520, 
580,640,700 
390 RETURN 

900 F'RINT"f=i" : LEV=LEV+1: POKEV+21,0: P0KE53 

280,4:P0KE53281,6 

910 IFLEV=5THENG0T01150 

920 IFLEV>lTHENPRINT"-HB»*»MI:eONUSIS" ; L.EV 
♦ 100; "lîPGINTSIïT 

930 PRINT"[mnWi»|i*»ia«NTER LEVELIS" ; LEV 

940 IFLEV>1THENJ=J+LEV*100 

950 F0RI = 1T02000: NEXTI : PRINT“isi" 

960 G0SUB860 
970 G0T0240 

980 P0KE54296,15:P0KE54277,17:P0KE54278, 
38:P0KE54272,209:P0KE54273,3 
990 P0KE54276,129 


BOUTON POUR 


1120 PRINT"Wnm*PRESSE LE 
AUTRE PARTIE." 

1130 IFPEEK(H)=127THENG0T01130 
1140 G0TQ750 

1150 REM 4 NIVEAUX REUSSIS 
1160 POKEV+21,1:FORI=0102500:POKEV+21, 
P0KE53281,11:P0KE53280,12 
1170 F’R 1 NT " A ME O V 

E R" 

1180 PRINT“ - H*I*CONGRATULATIONS ! VOUS AVEZ 
REUSSI LES 4" 

1190 PRINT"WMIVEAUX QUI VOUS SEPARAIENT 
DE LA SORTIE" 

1200 PR INT "DU TEMPLE. " SPRINT 
►NOUS ETES LIBRE!" 

1210 PRINT"BW»PRESSEZ LE BOUTON DE TIR P 
OUR UNE AUTREM»»M»»»»»FARTIE. " 

1220 FORI=0T0200:NEXT 
1230 IFPEEK( H ) = 127THEN1230 
1240 G0T0750 

1250 P0KE54277,0:PQKE54278,240 
1260 I FF'EEK ( 56320 ) = 111THENP0KE54296,0 : 
TOI 40 

1270 P0KE54296,15 

1280 FORI =20000T020371 STEF'3; P0KE54273, PE 
EK ( I ) : P0KE54272, F'EEK ( 1 + 1 ) 

1290 P0KE54276,17:FORB=OTOPEEK<1+2)*10:N 
EXTB:P0KE54276,16 

1300 IFPEEK(56320)=127THENNEXT:F0RI=1T01 
500:NEXT:GOTO1280 
1310 GOTO140 

1320 P0KE53280,0:P0KE532B1,0 

1330 FÛRHYT= 160T0999 : POKEHYT+1024, F'EEK ( T 

A+HYT):P0KE55296+HYT,CO:NEXT 

1340 F'R INT" feîSSCORE: VIE (S): L. 

EVEL:":RETURN 
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COMMODORE 64 


EXPLORATEUR 

Quels sont les trésors cachés 
dans les différents tableaux de ce jeu ? 

A vous de le découvrir... 


0 REM ********************** 

1 REM * EXPLORATEUR * 

2 REM *PAR NORBERT BONNEFOY* 

3 REM ********************** 

4 PR I NT 11 M" ; : P0KE53281,0s P0KE53280, O s PR IN 
TTAB ( 10) ; " ISEXPLORATEURIS" 

5 PRINT"VOUS DEVEZ RECOLTER TOUS LES TRE 
SORS," 

6 PRINT“SYMBOLISES PAR DES COFFRES JAUNE 

S, A 

7 PRINT“L'AIDE DE VOTRE MODULE SPACIALE. 
LE" ’ 

8 PRINT"NOMBRE DE COFFRES PRIS EST AFFIC 
HE SOUS" 

9 PRINT"<< COFFRES >>.UNE COLLISION AVEC 
LE" 

10 PRINT"DECOR OU UN ENNEMI (ARAIGNEE OU 
TETE DE" 

11 PRINT"MORT) ENTRAINE LA PERTE D'UNE V 
IE" 

12 PRINT"(3 AU DEPART).AVANT DE CHANGER 
DE" 

13 PRINT"TABLEAU,VOUS DEVEZ FAIRE LE PLE 
IN EN" 

14 PR INT "VOUS POSANT SUR LES BASES: M-r-r-r 
ttM. " 

15 PRINT"SI LE PLEIN EST FAIT,UNE ASTERI 
SQUE" 

16 PRINT"APPARAITRA SOUS << FUEL »;SINO 
N IL N'Y" 

17 PRINT"AURA RIEN.ATTENTION A LA PESANT 
EUR QUE" 

18 PRINT"VOUS POUVEZ INVERSER PAR LA TOU 
CHE: F7" 

19 PRINT"POUR ALLER A GAUCHE : TOUCHE 1“ 

20 PRINT"POUR ALLER A DROITE : TOUCHE 2" 

21 PRINT"ON CHANGE DE TABLEAU EN PRENANT 
LES" 

22 PRINT"PASSAGES AUX BORDS DE L'ECRAN." 

23 F'RINT "BONNE CHANCE, CAR VOUS ALLEZ EN 
AVOIR " 

24 PRINT"BESOIN! ! ! << ESPACE >> POUR CON 
TINUER." 

30 S1=54272:FL=SI:FH=54273:TL=54274:TH=5 
4275:W=54276:A=54277:H=54278:L=SI+24 
35 POKEL, 15: F'OKETH, 13: F'OKETL, 15: F'OKEA, 48 
:POKEH,96:POKESI+23,15*16 
40 READX:READY:READD 

45 I FX=-1THENRESTORE : FOR I =0T0100 : NEXT 1: 03 
QTQ40 

50 PQKEFH, X : F'OKEFL, Y : F'OKEW ,17: F0RT=75T0D 
:NEXT:POKEW,0 
55 IFPEEK(203)=60THEN60 
58 G0T040 

60 READX: IFXO-1THEN60 


78 PR I NT " Mil]" ; T AB ( 32 ) ; " FUELPIBIMO-PPIIII 

llnlBIl_^MNliUMCO F F R E SMnIllllD T ' ' 

79 PRINTTAB(33) 5 "I liRlHI_ k" 

80 V=53248:Z=0:NC=0:F=1:NV=2:K=0.5:XD=2: 
F0RI=0T08: C < I ) =1 : NEXT : POKEV+2'l, 109 

81 FOR1=15808T016063:READQ:POKEI,Q:NEXTI 

82 P0KE2040,247:P0KE2046,248:PQKE2043,24 
7:P0KE2045,247:X=120:Y=53 

83 POKEV+6,32:POKEV+7,226:P0KEV+10, 58: PO 
KEV+11,226 

85 G0T02000 

100 P0KE2042,249+SP : F'OKEV, X : POKEV+1, Y x PO 
KEV+4,A:PQKEV+5,B 

110 IFC(Z)=1THEN112 

111 J=0:R=0 

112 F'OKEV*12,J:POKEV+13,R 

113 POKEV+21, 109 : F'OKEV+31,0 

149 REM * ACTION' DU JEU' * 

150 F'OKEV, X : F'OKEV*1, Y : POKEV+4, A : PQKEV+5, 
B: IFF'EEK (203) =56THENX = X-XD 

151 IFF'EEK (203) =59THENX=X+XD 

152 Y=Y+DY:DY=DY+0. 1: IFF'EEK (203) =3THENDY 
=DY-K 

153 A=A-i-MX: B=B+MY: IFA=OORA=UTHENMX=-MX 

154 IFB=PORB=WTHENMY=-MY 

155 IFF'EEK ( V+31 ) = 1 ORF'EEK ( V+31 ) =5THENG0SU 
B500: F'OKEV+31,0 

156 IFF'EEK (V+30) =5THENG0SUB505 

157 IFF'EEK (V+30) =65THENG0SUB600 

159 IFX>=GANDX<=DANDY>=H-2ANDY<=H+1ANDDY 
<. 9THENF= 1 : F'OKE 1218,42: G0SUB550 

160 IFX>253THENZ=Z+1:X=30:G0T02000 

161 IFX<22THENZ=Z —1 :X=245:G0T020Q0 

162 IFY>2Û0THENZ = Z+3:Y=55:G0T02000 

163 IFY<47THENZ=Z—3:Y=190:60T02000 
165 GOTO150 

200 F'RINT" M"; 

201 F'RINT"-fc:iB---—------- 

- 

202 F'RINT"fiB 
PI I" 

203 F'RINT"B» 

HJ I" 

204 F'RINT "BU 

m i" 

205 F'RINT"SB +Z 

Pü" 

206 F'RINT "fia «Z Z Z 

PII" 

207 PRINT"» t - tt - i .r -C-ZZZZZ 

Pi I" 

208 F’RINT"«S-% ’frZZZ 

PI I" 

209 PR INT" Kl I I PIM -frZ 
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210 

pr int" rai s 



PN M 


M 1" 


II 






359 PRINT"P^aM KL. .. .... ......B 


; 11 

PRINT"KM M 



PI 1 1 


0: H=86: 6=232: D=252s J=32: R=88: SP=1 s X (3) =1 


ii 






76:Y(3)=66: MX=0 


;i2 

PRINT"filTOSœ 



PN M 


2066 IFZ=3THENMY=-1:A=136:B=106:P=58:W=1 


ii 






78 : S0SLJB275 


213 

PR INT" SE) Q 



PI 1 M 


2070 IFZ=4THENF'=0 : W=0 : H= 182: 6=80 : D= 100 : J' 


II 






=200 : R= 184: SF'=0: X < 4 ) = 152: Y ( 4) = 170 


214 

PRINT"B|:ii»«i 



PI 1 1 


2071 IFZ=4THENMX=-1 : MY=0 : A= 120: B= 114 : '0=3 


1" 






2:U=240:GQSUB300 


215 

F'RINT"IB IB IIOB 

IB 


PN 

i 

2075 IFZ=5THENP=0:W=0:H=182:6=160:D=180: 



1" 





J=208: R=80: SF'=1 : X (5) =144: Y <5) =58: MX=-1 


216 

PR INT "IB IB l?OB 

m 


PN 

M 

2076 IF Z =5THENMY=0:A=88:B=130: 0=32:U=240 



1" 





:60SUB325 


217 

PRINT"IB IB l«3B 

m 


PI 1 

1 

2080 IFZ=6THENQ=0:U=0:H=182:6=224:D=244; 



1" 





J=240:R=96:SF-0:X(6)=48:Y<6)=66:MX=0- 


218 

PR INT "IM IB I3£)B 

m 


PN 

M 

2081 IFZ=6THENMY=-1 : A= 184 : B=98s F'=66: W= 17 








8:60SUB350 


219 

PR INT "IB IBM3*I)B''IS« 


PI 1 

ramB 

2085 IFZ=7THEN0=Û:U=0:H=174: 6=168: D=188: 

1 

r 






J=120:R=184: SF‘= 1 : X <7 ) =168: Y <7) =66: MX=0 


231 

PRINT"I 1 


1 



2086 IFZ=7THENMY=1 : A=232: B=106: F'=66: W=17 


Ml 






0:G0SUB375 


232 

PRINT'M 1 


_PJ« 

mmu 

2090 IFZ=8THENF'=0: W=0: H=182: 6=120: D=140: 


_ I' 






J=232:R=184:SP=0: X < 8 > =120: Y < 8)=58 


233 

PRINT"I 0 


1 

ras 


2091 IFZ=8THENMX=~1: MY=0: A=112; B=122: 0=3 


a i' 






2:U=240:60SUB400 


234 

PRINT"I 1 


1 

feWSj! 


2099 GOTO100 


av 1 






3000 POKEV+21,0 : PR INT" 1=1" 



PRINT'M 1 


1 

m 


3010 F'R INT "VOUS N'AVEZ PLUS DE CARBURANT 


s r 






POUR ALLERAU TABLEAU SUIVANT" 


236 

PRINT'M 1_ 


1 

m 


3020 PRINT"AU REVOIR." 


S 1' 






3030 PRINT'MSYOTRE SCOREIS : " ; NC* 100: GOTO 


237 

PRINT'M 1 


1 

m m 


4000 


S 1' 






4000 I NF'UT "(=IHM*MRlflM*lRlRlRM*IiiaaUNE AUTRE PA 


238 

PRINT'M 1 


1 

ras: wm 


RTIE ? < 0 / N ) ";A$ 


si r 






4010 IF A$="0"THENRUN 


239 

PRINT'M 1 


1 

i 


4020 IFA$<>"N"THEN4000 


1 P 1 






4030 END 


240 

PRINT'M 1 


1 

i 

0“ 

5000 DATA17,103,500,17,103,500,17,103, 15 


P" 






0,19,137,150,21,237,150,23,59,150 


241 

PRINT'M 1 



i 

i 

5010 DATA26,20,500,26,20,500,23,59,150,2 


ni 






0,178,250,26,20,350,23,59,175,26, 20, 175 


242 

PRINT'M 


1 

i 

i 

5020 DATA23,59,175,20,178,175,19,137,350 


II! 






,15,129,500,-1 


243 

PRINT'M 


1 

i 

Q 

5100 DAT AO,16,0,3,254,0,3,26,0,7,78,0,1, 


1“ 






8,0,1,222,0,1,82,0,1,254,0,15,7,128 


244 

PRINT'M 


1 

W-f-i-r-r-HM 

1 

5110 DATA21,5,64,21,5,64,63,255,224,32,1 


r 






12,32,64,248,16,224,0,56,0,0,0,0,0,0,0 


245 

PRINT"L 



_ mmmm 

L 

5120 DAT AO,0,0,0,0,0,0,0,0, 0, 0, 99 








5130 DATAO,255,128,1,1,64,2,2,32,7,252,1 

wa 

246 

RETURN 





6,8,2,8,16,1,24,32,0,168,64,0,72,255 


250 

PR INT "Si"; 





5140 DATA255,200,128,0,72,128,0,72,128,1 


351 

PRINT"-mB®î^ 




;:ÿX: ; ¥ : ï;S 

92,72,131,48,72,140,204,72,131,48,72 


(feS?" 






5150 DATA 128, 192,80, 128,0., 96, 255, 255, 192 


352 

PRINT"SS 





,0,0,0 , 0,0 , 0,0,0,0,99 


h 






5160 DATA7,0,224,25,129,152,36,129,36,76 


253 

PRINT"I 





,129,82,145,219,137,17,126,136,35,219 


■1 






5170 DATA196,38,24,100,44,0,52,6,0,96,3, 


254 

PR INT "H 





0, 192,0, 129, 0, 0, 68,0,0,0, 0,0, 0, 0, 0,0, 0 


II 






5180 DATAO,0,0,0,0,0,0 ,0,0,0,0,0,0,0,0 


255 

PRiNT"iwgan 





5190 DATA99,0,255,0,65,255,130,195,255,1 


II 






95,36,154,196,23,154,200,15,255,240,7 


*56 

PRINT"PI83BN 





5200 DATA255 , 224 , 3 , 231,192,3,231 , 192 , 3 , 2 


h 






31,192,1,255,128,2,255,64,4,85,32,8,170 


'57 

PR INT "Ul® ahl 





5210 DATA16,16,255, 8, 32,255,4,192,255,3, 


Ml" 





64 , 126,2,0,0,0,0,0 ,0,0,0,0,0,0 


258 

PRINT'MltëSIBM 
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COMMODORE 64 


MEMORY 


Inspiré du célèbre Simon, ce jeu vous 
propose de reconstituer une séquence sonore. Simple ? 

Essayez pour voir ! 


1 REM ***** MEMORY ***** 

2 REM ***** DE STEF'HANE WEHRLÏ ***** 

3 REM ***** DECEMBRE 1986 ***** 

4 REM ***** GRAPHIQUE + INIT. ***** 

8 DIMX(IOO):C=1:D=1 

9 PÜKE 53280,11s P0KE53281,11:PRINT"W:BÜ 
SUB600:GQSUB7Ô0 

10 F'RINTCHR$ ( 147) : PRINT 

20 PRINT" U-1 U-1 U-1 U- 

-ï" 

30 PRINT" I II II II 

I" 

35 PRINT" I II II II 

I" 

40 PRINT" I II II II 


45 PRINT" I II II II 

I" 

50 PRINT" J-K J-K J-K J- 

—K" 

53 PRINT" 1 2 3 4" 

55 G0SUB210:GÛSUB220:GQ8UB230:G0BUB240 

56 FOR1=1TOI500:NEXTI 

60 REM ******************************* 

61 REM ***** BOUCLE PRINCIPALE ***** 

62 REM ******************************* 

70 PRINT:PRINT:PRINT 

100 X <C)=INT(RND(8 )*4)+1 

110 F0RI=1T0C:E=E+1 

120 ONX(E)GOSUB 210,220,230,240 

150 NEXTI:D=1 

155 F0RI=1TQC 

160 GETH:IFH=0THEN16Û 

165 IFH=X <D)THEN200 

170 TY=10:TZ = 10:G0SUB500: PRINT: PRINTTAB( 
13) "**GAME OVER**" : F'QKF.VC+21,0 
175 F0RN=1T03000:NEXT:E=0:C=1:SC=0: GOTO? 
180 D=D+1:NEXTI 

190 F0RZ=1TQ1000:NEXTZ :E=0:C=C+1:GOTO100 
200 ÛNHG0SUB210,220,230,240 
205 SC=SC+1:PRINT:PRINTTAB(16)"WuBCORE"; 
SC:GOTO180 

210 F'QKEVC+39, 6: F0RG=1TÜV: NEXTG: TY=17:TZ 

=32:GOSUB 500 

215 POKEVC+39,0:RETURN 

220 F'OKEVC+40, 7: F0RG=1T0V: NEXTG: TY=22: TZ 
=42:G0SUB500 


225 F'OKEVC+40,0:RETURN 

230 F'QKEVC+41,2: F0RG=1T0V: NEXTG : TY=27 : TZ 

=52:G0SUB500 

235 POKEVC+41,0: RETURN 

240 POKEVC+42,5:F0RG=1T0V:NËXTG:TY=32:TZ 

=62:GOSUB 500 

245 POKEVC+42,0:RETURN 

497 REM ******************************* 

498 REM ***** SON ***** 

499 REM ******************************* 

500 SI=54272:FL=SI :FH=SI +1 :W=SI+4:A=SI+5 
:H=SI+6:L=SI+24 

502 : F'QKEL, 15:F'0KEA, 16+9: POKEH, 4*16+4 

503 POKE FH, TY : F'OKEFL, TZ : F'OKEW, 17 

504 F0RT=lT0l0Ô:NEXTT 

505 F'OKEW, 0 : POKE A, 0 : POKEH, 0 : RETURN 

597 REM ******************************* 

598 REM ***** DEBUT DE PARTIE ***** 

599 REM ******************************* 

600 F'RINTCHR$ ( 147) :PRINTTAB (15) "MEMORY": 
F'RINTTAB (15) "#*****" 

610 PRINT : PRINT : PRINT : INF'UT " VITESSE 
0/100)"; V 
620 RETURN 
630 RETURN 

697 REM ******************************* 

698 REM ***** DEFINITION SPRITE ***** 

699 REM ******************************* 

700 F0RA=15680T015872 STEF'64 


FORB=A TOA+62 

READJ:POKEB,J 

NEXTB:RESTORE:NEXTA 

VC=53248:SF'=2040 

F'OKESP, 245: POKESP+1,246: P0KE8P- 


710 
720 
730 
740 
750 

:POKESP+3,248:POKEVC+21,15 

755 POKEVC+23,15:PQKEVC+29,15 

760 POKEVC, 80 : POKEVC+1,74: F'OKEVC+2, 1 

OKEVC+3, 74: POKEVC+4, 192: F'OKEVC+5, 74 

770 F'OKEVC+6,248 : POKEVC+7,74 

790 RETURN 


24“ 


36 : ■ 


, U, 


, 0,255, 




810 DATA255,255,0,255,255,0,255,255, 
5,255,0,255,255,0,255,255,0,255,255, 
820 DATA127,254,0,63,252,0,0,0,0,0,0 
, 0,0,0, 0,0, 0,0,0 


0 , 2 = 

0 
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COMMODORE 64 


OTHELLO 

Classique parmi les classiques, cet Othello 
jouit d'une très bonne réputation. De plus il possède 
un niveau de jeu plus qu'honnête. 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
30 REM 


********************** 

* OTHELLO * 

********************** 

* PAR * 

* * 

* FRANÇOIS LEMMENS * 
********'************** 

* 20/04/1987 * 


90 REM ********************** 


100 

REM 





110 

PRINT" Mi" 





120 

P0KE53280,0: 

POKE53 

281,0 


130 

PRINTSPC(84) 

"F 

R A 

N C 0 

i I 

140 

PRINT" L E 

M 

M E 

N S " 


150 

PRINTSPC(94) 

"PRESENTE : 

h 

160 

F'RINT"MWWK" 





170 

PRINT "»W»I*** 

*** 

* * 

*** 

180 

PRINT"»*»I* 

* 

* 

* * 

* 

190 

PRINT"»MMM* 

* 

* 

**•** 

* 

200 

PRINT"»*»I* 

* 

* 

* * 

** 

210 

F'R INT "WIIWk 

* 

* 

* * 

* 

220 

PRINT"WWMMM*** 

* 

* * 

*** 


230 

pr int" siumminiir 

SPC(240) 


240 

PRINTSPC(22)" 

* 

* 

*** " 

250 

PRINTSPC(22)" 

* 

* 

* *" 

260 

PRINTSPC(22)" 

* 

* 

* *" 

270 

PRINTSPC(22)" 

* 

* 

* *" 

280 

PRINTSPC(22)" 

* 

* 

* * " 

290 

300 

PRINTSPC(22)" 
PRINTSPC(171) 

*** 

; 

*** 

*** " 


310 F‘RINT"■SUN INSTANT SVP. . . " 

320 PQKE56334,PEEK(56334)AND254 

330 POKE1,PEEK(1)AND251 

340 FORI=0TG511 

350 POKEI+12288,PEEK(I+53248) 

360 NEXT 

370 POKE1,PEEK(1)0R4 

380 P0KE56334,PEEK(56334)OR1 

390 KL=(PEEK(53272)AND240)+12 

400 PQKE53272,KL 

410 X=12800 

420 FQRF=1T014 

430 X=X+8 

440 F0RI=0T07:READA:POKEI+X,AsNEXTI 
450 NEXTF 

460 DATAOOO,127,127,127,124,115,111 
470 DATA095,000,254,254,254,062,206 
480 DATA246,250,095,079,083, 108,115 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
7 10 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
81 1 
812 
813 
820 
830 
840 
850 
860 


DATA124,127,000,250,242,202,054 
DATA206,062,254,000,000,127,127 
DATAI27,124,112, 096,064,000., 254 
DATA254,254,062,014,006,002,064 
DATA064,080,108,115,124,127,000 
DATA002,002,010,054,206,062,254 
DATAOOO,000,127,127,127,127,127 
DATA 12.7, 127,000,254,254,254,254 
DATA254,254,254,127,127,127,127 
DATA127,127,127,000,254,254,254 
DATA254,254,254,254,000,000,000 
DATAOOO,000,000,255,255,000,000 
DAT A255,255,000,000,OOÛ ; 000 1 OOO 
PR INT" MS" 

P0KE53280,9:P0KE53281,14 
PRINTSPC(12)"INSTRUCTIONS :" 

PRINT:PRINT 

PR INT" CE PROGRAMME VOUS";) 

PRINT" PROPOSE UN PLATEAU" 

PRINT" D'OTHELLO POUR 2"; 

PRINT" JOUEURS." 

PR INT 

PRINT" L'ORDINATEUR RETOURNE"; 
PR INT" LES PIONS ET" 

PRINT" INDIQUE LE NOMBRE"; 
PRINT" QU'EN POSSEDE CHAQUE" 
PRINT" JOUEUR." 

PRINT 

PRINT" VOUS INDIQUEZ LA CASE"; 
PRINT" QUE VOUS VOULEZ" 

PRINT" OCCUPER EN TAPF'ANT"; 
PRINT" L.A LETTRE PUIS LE" 

PRINT" CHIFFRE CORRESPONDANT." 


PRINT 

PRINT" SI VOUS NE SAVEZ"; 

PRINT" PAS JOUER, APPUYEZ" 
PRINT" SUR RETURN POUR PASSER"; 
PRINT" VOTRE TOUR." 


870 PRINT 

880 PRINT" CHARGEZ MAINTENANT LE"; 
890 PRINT" SECOND F'RG. . . " 

900 PRINT;PRINT 

910 PRINT"LOAD";CHR$(34) 

920 NEW 


► 


99 










10 REM..-OTHELLO 2ME PARTIE-.- 

20 REM 

30 G0SUB3210 
40 G0SUB2910 
50 L=48 s SD=2;SC~2:CQ=1 
60 REM 

70 REM-DESSIN JEU--- 

80 REM 
90 PEINT"IM" 

100 P0KE53280,0s PQKE53281,0 

110 PRINTSPC(43)"A B C D E F G H" 

120 PRINTSPC(250)SPC(250) 

130 PRINTSPC(223)"A B C D E F G H" 
140 F O R F = 118 7 T G1747S T E F' 8 0 
150 L=L+1 

160 P0KEF-2,L:PQKEF+17,L 
170 F0RG=FT0F+14STEP2 
180 F'ÜKEG, 73: POKEG+1,74 
190 PGKEG+40,75:POKEG+41,76 
200 NEXTG,F 

210 F'RINT"lata"SPC (27) "OTHELLO" 

220 PRINTSPC (25) "- 11 

230 F'R IN T SPC ( 105 ) " 38" ; J1$ 5 " : " 

240 PRINTSPC(105)J2$ s“ :" 

250 PRINTSPC(105)"COUP NO :" 

260 PRINTSPC(105)"JOUEUR s" 

270 PRINTSPC(185)"COUP :" 

280 F'OKEPP (36) ,65 
290 POKEPP(36)+1,66 
300 POKEPP(36)+40,67 
310 POKEPP(36)+41,68 
320 POKEPP(29),65 
330 POKEPP(29)+1,66 
340 POKEPP(29)+40,67 
350 POKEPP(29)+41,68 
360 POKEPP(37),69 
370 POKEPP(37)+1,70 
380 POKEPP(37)+40,71 
390 POKEPP(37)+41,72 
400 POKEPP(28),69 
410 POKEPP(28)+1,70 
420 POKEPP(28)+40,71 
430 POKEPP(28)+41,72 
440 REM 

450 REM-COUP- 

460 REM 

470 PR I NT "maM 1 SPC ( 234 ) " la»" ; CO 
480 print" * 5 

490 PRINTSPC(186)" 

500 IFJ=1THENN$=J1$:JA=2:JH=65 
510 IFJ=2THENN$=J2$:JA=1:JH=69 

520 pr i ni spc ( 1 86 ) n$ 

530 PR I NT " Hmw SPC ( 36 ) SC ; " Il " 

540 PR I NT" WWW SPC (156) SD ï "B " 

550 V=1 

560 GETR$:IFR*=""THEN560 
570 IFR$=CHR*(13)THEN700 
580 IFR*=CHR*(20)THEN710 
590 IFV=1THEN650 

600 IFASC(R*)C490RASC <R$)>56THEN560 


610 PY=ASC<R$)-48 

620 F’R I NT " i=«BiHlnlRlHli«lHlnliiIciliil(ilciiii]> 1 » 

630 PRINTSPC(233)R$ 

640 G0T0770 

650 IFASC(R*)C650RASC(R*)> 72THEN560 
660 V=2: F‘X=ASC (R$) -64 
670 P R INT" lalslRlnliilRlnliilnlnlRlRlRlHlii] 11 ■■ 

680 PR INTSPC (232 ) RHü 
690 G0TO560 

700 Y=JA: JA-J:J=Y: GOT0470 
7 10 PRINT" (SfRlRlRlRlRlRlRlHlRlRlRlRlR]' 1 “ 

720 PRINTSPC(232)" "sV=1 
730 G0T0600 
740 REM 

750 REM-DPL PIECE- 

760 REM 

770 DA=GO ( F'X , F'Y ) 

780 IFT(DA)< >0THEN470 
790 IFDA>63THENB10 
800 IFT(DA+1)<>JATHEN960 
810 L-PX 

820 L=L+1:IFL>7THEN960 
830 W=CO(L,PY) 

840 IFT(W)=JAANDT(W+l)=JTHEN860 

850 SOT082-0 

860 F0RF=DA+1T0W 

870 T(F)=J: T(DA)=J 

880 POKEPP(F),JH:POKEPP(F)+1,JH+1 

890 POKEPP ( F ) +40, J'H+2 

900 POKEPP ( F ) + 41 , JIH+3 

910 NEXTF 

920 POKEPP(DA),JH:POKEPP(DA)+1,JH+1 

930 POKEPP(DA)+40,JH+2 

940 POKEPP(DA)+41,JH+3 

950 DP=1 

960 REM 

970 IFDA<2THEN990 

980 IFT (DA-1 ) OJATHEN1160 

990 L=PX 

1000 L=L_-1 : I FL< 1TIHEN1160 
1010 W—CO ( L, F'Y ) 

1020 IFT(W)=JAANDT(W-l)=JTHEN1040 

1030 GOTO1000 

1040 FQRF=DA-1TOWSTEP-1 

1050 T (F) =J: T (DA) =J 

1060 POKEPP(F),JH 

1070 POKEPP (F) +1, JIH+1 

1080 POKEPP(F)+40,JH+2 

1090 POKEPP(F)+41,JH+3 

1100 NEXTF 

1110 POKEPP(DA),JH 

1120 POKEPP(DA)+1,JH+1 

1130 POKEPP(DA)+40,JH+2 

1140 POKEPP(DA)+41,JH+3 

1150 DP-1 

1160 REM 

1170 IFDA>56THEN1190 
1180 IFT(DA+8)<> JATHEN1360 
1190 L—F'Y 

1200 L=L-1 : IFL <2THEN1360 
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W=CO(PX,L) 

IFT(W> =JAANDT(W+8)=JTHEN1240 
GOTO1200 

FORF—DA+STuWSTEF'8 
KF) : T (DA) - J 
POKER F' ( F > , JH 
POKEPP(F)+1,JH+1 
POKEPP(F)+40,JH+2 
POKEPP(F)+41,JH+3 
NEXTF 

POKEPP(DA),JH 
POKEPP(DA)+l,JH+1 
POKEPP(DA)+40,JH+2 
POKEPP(DA)+41,JH+3 
DP* 1 
REM 

IFDA <1OTHEN1390 

IFT (DA--8) OJATHEN1560 

L=PY 

L=L+1 ; IF L> 7THEN1560 
W=CO(PX,L) 

IFT ( W ) = JAANDT (W-8) = JTFiEN 1440 
GOTO1400 

F0RF=DA-8TÜWSTEP-8 
T(F)=J: T(DA)=J 
POKEPP(F),JH 
POKEPP(F)+1,JH+1 
POKEPP(F)+40,JH+2 
POKEPP(F)+41,JH+3 
NEXTF 

POKEPP(DA),JH 
POKEPP(DA)+1,JH+1 
POKEPP(DA)+40,JH+2 
POKEPP(DA)+41 , JH+3 
DP* 1 
REM 

I F" D A > 5 5 T H E N i 5 9 O 

IFT(DA+9)< > JATHEN1780 

L*PY:I*PX 

L=L-1: 1 = 1 + 1 

I F" L < 2 T H E N178 0 

IFI> 7THEN1780 

W=CO(I,L) 

IFT(W)=JAANDT(W+9)=JTHEN1660 
GOTO1600 

F0RF=DA+9T0WSTEP9 
T(F)*JsT<DA)*J 
POKEPP(F),JH 
POKEPP(F)+1,JH+1 
POKEPP(F)+40,JH+2 
POKEPP(F)+41,JH+3 
NEXTF 

POKEPP(DA),JH 
POKEPP(DA)+l,JH+1 
POKEPP(DA)+40,JH+2 
POKEPP(DA)+41 , JH+3 
DP* 1 
REM 

IFDA<9THEN181O 

IFT(DA-9)< > JA THEN20O0 


1810 L=PY s 1=PX 
1820 L=L+1:1=1-1 
1830 IF L. > 7 T HE N2 OOO 
1840 I F” I <2THEN2000 
1850 W=CO(I,L) 

1860 IFT ( W) = JAANDT ( W--9) = JTHEN 1880 

1870 GOTO1820 

1880 F 0 IR F=D A—9 T 0 W S T E F’ -- 9 

1890 T(F)=J : T(DA)=J 

1900 POKEPP(F),JH 

1910 POKEPP(F)+1,JH+1 

1970 POKEPP(F)+40,JH+2 

1930 POKEPP(F)+41,JH+3 

1940 NEXTF 

1950 POKEPP(DA),JH 

1960 POKEPP(DA)+1,JH+1 

1970 POKEPP(DA)+40,JH+2 

1980 POKEPP(DA)+41,JH+3 

1990 DP=1 

2000 REM 

2010 I F" D A > 5 6 T H E N203O 

2020 IFT(DA+7)OJATHEN2220 

2030 L=PYsI*PX 

2040 L=L-1:Ï=I-1 

2050 IFLX2THEN2220 

2060 IFI«2THEN2220 

2070 W=CO(I,L) 

2080 I FT ( W) = JAANDT ( W+7 ) * JTFIEN2100 

2090 GOT02040 

2100 F0RF=DA+7T0WSTEP7 

2110 T(F)=JsT(DA)=J 

2120 POKEPP(F),JH 

2130 POKEPP(F)+1,JH+1 

2140 POKEPP(F)+40,JH+2 

2150 POKEPP(F)+41,JH+3 

2160 NEXTF 

2170 POKEPP(DA),JH 

2180 POKEPP(DA)+1,JH+1 

2190 POKEPP(DA)+40,JH+2 

2200 POKEPP(DA)+41,JH+3 

2210 DP=1 

2220 REM 

2230 IFDAC9THEN2250 

2240 IFT(DA-7)OJATHEN2440 

2250 L*PY:Ï=PX 

2260 L=L+1:1*1+1 

2270 IFL>7THEN2440 

2280 IFI>7THEN2440 

2290 W=CO(I,L) 

2300 IFT(W)=JAANDT(W-7)=JTHEN2320 

2310 GOT02260 

2320 F0RF*DA-7T0WSTEP-7 

2330 T(F)=J: T(DA)=J 

2340 POKEPP(F),JH 

2350 POKEPP ( F ) +1 , J14 +1 

2360 POKEPP(F)+40,JH+2 

2370 POKEPP(F)+41,JH+3 

2380 NEXTF 

2390 POKEPP(DA),JH 

2400 POKEPP(DA)+1,JH+1 










2410 POKEPP<DA > +40,JH+2 
2420 POKEPP<DA)+41,JH+3 
2430 DP=1 

2440 IFDP < >1THEN470 
2450 DP=0 

2460 IFJ=1THENJ=2:GOT024SO 
2470 IFj=2THENJ=l : G0T024B0 
2480 SC=0:SD=0 
2490 F0RF-1T064 
2500 IFT(F)=1THENSC=SC+1 
2510 IFT < F ) =2THENSD=SD+ :L 
2520 NEXTF 

2530 IFSC=0ÜRSD=0THEN260O 

2540 CQ=C0+1 

2550 IF C0 > 6 OT HEN260O 

2560 GOTO470 

2570 REM 

2580 REM-FIN- 

2590 REM 

2600 F'RI NT " HWHWM" SPC ( 37 ) ; SC ; " Il " 

2610 F'RI NT " HbIbIbIbI" SPC (157) $ SD ; 11 II " 
2620 IFSC>SDTHENGS=J 1S ;G0T02670 
2630 IFSD>SCTHENG$=J2S:G0T0267G 
2640 PR I NT " iSiBlBimBlRlRlBlUlBlBlBlBimmBlUlR]" ; 

2650 F'RINTSPC (240) "EGALITE ! ( ! “ 

2660 GQTQ2720 

2670 PR I NT 11 iïjBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlBlB] " |j 

2680 PR I NTSF'C ( 240 ) 5 

2690 PR INT 1 'LE GAGNANT EST ";GS; 

2700 PR INT" ! ! !" 

2710 FORF=1T03500: NEXT 
2720 PR INT" HA" 

2730 POKE53280,7:P0KE53281,7 
2740 PRINT"{RlHWl. RECOMMENCER" 

2750 PR I NT " [bIb>»L . QU I TT ER " 

2760 GETAS 

2770 IFAS~"1"THENRUN 
2780 IFAS="2"THEN2810 
2790 60T02760 
2800 RUN 
2810 F'RINT ’W 

2820 PQKE53280,ilsP0KE53281,11 
2830 F'RINT"Mii**ETES-VOUS 
2840 PR INT"CERTAIN ? (0/N)" 

2850 GETA*: IFAS=""THEN2850 
2860 IFAS="0"THENSYS64738 
2870 RUN 
2880 REM 

2890 REM-NOMS- 

2900 REM 
2910 F'RINT"H" 

2920 POKE53280,9 ;P0KE53281,14 
2930 PRINT"iaMW*l" 5 

2940 PR INT"NOM DU PREMIER JOUEUR :" 
2950 INPUT" !M|b 1 " 5 JS:J1S=LEFTS (JS, 9) 
2960 PR I NT " ISBlBimr 5 

2970 F'RINT "NOM DU SECOND JOUEUR ; " 
2980 INPUT" S»»]" ; J'S: J2S=LEFT$ (JS, 9) 
2990 F'RINT"tBl«lB*iaaUEL 
3000 F'RINT" JOUEUR COMMENCE ? (1-2) " 


3010 

GETAS 


3020 

IFA**"1"THENJ-1 ;JA-2:60T03050 

1 76 

3030 

IFAS="2"THENJ=2:JA=1:GÜTÜ3050 

1 ~ 6 

3040 

GOT03010 


3050 

F'RINT "Ha" 

■ ’ 

1 ' D 

3060 

P0KE53280,9;PQKE53281,5 

1 76 

3070 

F'RINT" [««MM" 5 J 1S ; 

1 76 

3080 

F'RINT" VOUS AVEZ LES "5 

1 6 

3090 

F'RI NT " F' I ON S BLANCS" 


3100 

PR INT "WWW 5 J2S 5 


3110 

F'RINT" VOUS AVEZ LES "; 


3120 

F'RINT "PIONS NOIRS." 


3130 



3140 

F'RINT "APPUYEZ SUR UNE " ; 


3150 

F'RINT "TOUCHE. " 


3160 

GETAS:IFAS=""THEN3160 


3170 

RETURN 


3180 

REM 


3190 

REM-REMF'LISSAGE TABLEAUX- 


3200 

REM 


3210 

DIMT(64),CO (8,8) ,PP(64) 


3220 

T(36)=1:T(29)=1 


3230 

T (37) =2: T (28) =2 

F 

3240 

FÜRF = 1'TG8 

1 - D 

3250 

F0RG=1T08 

I 1 

3260 

READCO(F,G) 

1 * # 

3270 

NEXTG,F 

I 

3280 

FQRF=1TQ64 

1 : j 

3290 

READF'P (F) 

1:0 

3300 

NEXTF 


331 0 

RETURN 

■ - 

3320 

REM 

■ - 0 

3330 

REM-DATAS- 

1 • )<i 

3340 

REM 

I 1 : 

3350 

DATA57,49,41,33,25,17,09, 01 

zo 

3360 

DATA58,50,42,34,26,18, 10,02 

1 

3370 

DATA59,51,43,35,27,19,11,03 

1 40 

3380 

DATA60,52,44,36,28,20,12,04 

1 5C 

3390 

DATA61,53,45,37,29,21,13,05 

1 =0 

3400 

DATA62,54, 46,38,30,22,14., 06 

1 ( 

3410 

DAT A63,55,47,39,31,23,15,07 

1 30 

3420 

DATA64,56,48,40,32,24,16,08 

1 30 

3430 

DATA1747,1749,1751,1753 

1 - 

^ A' U 

DATA1755,1757,1759,1761 

1:1 c 

3450 

DATA1667,1669,1671,1673 

1 20 

3460 

DATA1675,1677,1679,1681 

I ::c 

3470 

DATA1587,1589,1591,1593 

1:40 

3480 

DATA1595,1597,1599, 1601 

1 ; se 

3490 

DATA1507,1509,1511,1513 • 

1 1 zXj 

3500 

DATA1515,1517,1519,1521 

1 c 

3510 

DATA1427,1429,1431,1433 

1-30 

3520 

DATA1435,1437,1439,1441 

|:?c 

3530 

DATA1347,1349,1351,1353 

1 :00 

3540 

DATA1355,1357,1359,1361 

■TIC 

3550 

DATA1267,1269,1271,1273 

| 2 C 

3560 

DATA1275,1277,1279,1281 

|3C 

3570 

DATA 1 .1.87,1189,1191,1193 

■ '40 

3580 

DATA1195,1197,1199,1201 

1 ' 5< - : 

3590 

REM 

tsC 

3600 

REM COMMENTAIRES : 

Irzc 
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3610 REM 

3620 REM CE PROGRAMME EST CONSTITUE 
3630 REM DE 2 PARTIES, LA PREMIERE 
3640 REM EST UNE REDEFINITION DE 
3650 REM CERTAINS CARACTERES ET LA 
3660 REM SECONDE EST LE PROGRAMME 
3670 REM PRINCIPAL. 

3680 REM 


3690 REM TAPEZ ET SAUVEZ A LA SUITE 
.3700 REM CES 2 PARTIES. 

3710 REM ATTENTION, APRES SON LANC~ 
3720 REM EMENT, LE PREMIER PROGRAM- 
3730 REM ME S'EFFACE, IL NE VOUS 
3740 REM RESTE ALORS PLUS QU'A CHA- 
3750 REM RGER LE SECOND POUR JOUER. 
3760 REM 


COMMODORE 64 


SOLITAIRE 

Amateurs de solitaire, voici de quoi 
vous combler : toutes les règles de ce jeu 
de réflexion sont respectées. 


1 REM SOLITAIRE 
10 RF=568 

20 PR I NT " 33" : P0KE53269,0 
30 FOR1 = 1T025: VE*=VE*+"»1" :NEXT 
40 VE*="i=i"+VET 

50 FORI = 1T040 ; H0T=H0T+ ">1" : NEXT 
60 P 0 K E53280, 0 : 

70 P0KE646,1 
80 PRINT:PRINT! 

90 PR INT" mm 


P0KE53281,O 


PR INT 


B 


; 00 

PRINT" 

mmm g?: mm 

110 

PRINT" 

B 'M & m 

120 

PR INT" 

m m m m m 

130 

PR INT" 

mm m m m 

140 

PRINT" 

mm M mm. 

150 

PRI NT " 

m m m m 

160 

PR INT" 

b m M m 

170 

PRINT" 

Sgi*::® M- 

180 

PRINT" 

m m b m m 


mm 

SK 




m 

mm 


iS" . 


190 P0KE646, 
200 


210 

220 

230 

240 

250 

260 


VE=13:H0=11 
MS*="UNE REALISATION 
G0SUB4210 
P0KE646,3 


DE" 


VE=15:H0=6 

MS*=“SEPTEM SALICE SOFTWARE" 
MS*=MS*+" <S3S)":G0SUB4210 

270 P0KE646,11 
280 VE=20:HQ=5 

MS$=" r-" 

MS*=MST+ "-n " 


290 
300 
310 
320 
330 
340 
350 
360 
370 


G0SUB421O 
VE=21 : H0=5 
MS*="I 
MST=MST+" 
G0SUB4210 
VE=22:H0=5 
MST=" L - 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

5 70 
580 
590 
600 
610 
620 
630 
640 
650 
660 

6 7 0 
680 
690 
700 
710 
720 
730 
740 
750 


80SUB4210 


MST=M3T+"- 

VE=17:Hü=7 

M5T="AUTEUR: FRANCIS DESJARDINS‘ 
G0SUB4210:PQKE646,12 
VE = 21 :H0=6 

MST="POUR JOUER,UTILISEZ LE" 
MS$=MST+" PORT 2...SAUTEZ" 
MST=M3T+" LES PIONS ET S'IL" 
MS$=MS$-i-" N'EN RESTE QU'UN " 
MST=MS*+ "VOUS SEREZ LE 11 
MST=MST+"VAINQUEUR...POUR " 
MS*=MST+"CORSER LE JEU," 
MST=MST+»DETERMINEZ A L'AVANCE 1 
MS*=MS$+" LES COORDONNEES DU " 
MS*=MST+ " SLJRVIVANT. . . VOUS " 
MS*=MS*+“POURREZ REVOIR VOS " 
MST=MST+"COUPS ET LES MODIFIER 1 
M5*=MST+"... APPUYEZ SUR LE " 
MS*=MS*+"BOUTON ROUGE... 

NS*=MS*: H0=35 

HO=HO~1 ;MST=LEFT$(NST,34-HO) 
G0SUB4210 
FORJ=1T0120:NEXT 
A=PEEK(56320) 

IF CA AND 16)=0G0T072Ü 
IFH076G0T0580 
FD*=NS* 

NS*=R IGHTT C FDT, L.EN ( FDT ) -1 ) 
NS*=NS*+LEFT*CFDT, 1 ) 

MS*=LEFTT(NS*,28):G0SUB421O 
FOR1 = 1TOI 20:NEXT 
A=PEEK(5632O) 

IF CA AND 16)=0GQTÜ720 

GQT0640 

H0=6:NST="" 

MS*=" 

MS*=MS*+" ":G0SUB421O 

P6 = 54272 : F‘ 0 K E542 9 6 , 15 
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760 D I MF' X ( 33 ) , PY < 33 ) , DX < 33 ) 


. 9 

770 D I MD Y< 33 ) ,AX ( 33 ) ,AY ( 33 ) 

1370 PRIN7 

. 9 

780 FORI = 1709 : FORJ=i709 

1330 PR 1N7 " WMlllIWi MB Mi 

.9 

790 READWC: IFW02G070810 

1390 F'R INT 

9 

800 7 ( I , J ) =WC : F'D=PD+7 ( I, J ) : 6070840 

1400 F'RINT "miimkiiUK»US 

io 

810 RF=RF+1 

1410 P0KE646, 11 

20 

820 IFWC <> PDG0705990 

1 420 VE = 7 : H0=26 : MS*» "* NOUVELLE " 

Z 0 

830 8070790 

1430 GQSUB4210 

; . 

840 NEXTsNEXT 

1440 VE=9:H0=29:MS*»"PAR7IE" 

:> 

850 RF=RF+1 : READWC 

1450 G0SUB4210 

_ 

860 IF WCO 12960705990 

1460 VE=13:H0=26 

: '.u 

870 0=53248 : F'QKEV+21,4 

1470 MS$="* CHAR6EMEN7" 

y 

880 P0KE2042,13:P0KE53269,0 

1480 G0SUB4210 

: 'A 

890 X8=53252:YS=53253 

1490 VE= 15 : 140=29 : MS$= " ANC 1ENNE " 

::> c 

900 PD=0 

1500 G0SUB4210 

[21 ! 

910 F0RN=0T062 

1510 VE=17 :MS$="PAR71E":60SUB4210 

; 1 

920 READWC:IFWO2556070950 

1520 P0KE53269,4 :PQKE532S9,0 

: i: 

930 PQKE832+N,WC 

1530 F'OKEXS, 224: F'OKEYS, 91 

HZ 

940 PD=F'D+WC: 6070970 

1540 REM 7ES7 DEBU7 DE JEU 

lu 

950 RF=RF+1: IFWCOPDG0T05990 

1550 A=F'EEK ( 56320 ) 

ut 

960 6070920 

1560 IF <A AND 15)=147HENP0KEYS,91 

lit 

970 NEX7 

1570 IF(A AND 15)=137HENP0KEY8,139 

217 

980 RF=RF+1:READWC 

1580 IF(A AND 16)=060701600 

i £ 

990 IFWC<> P D60705990 

1590 60701550 

:is 

1000 P0KE53280,11:P0KE53281,15 

1600 IFF'EEK (53253 ) <> 13960701640 

22C 

1010 P0KE646,6 

1610 60SUB4320:MA=C0:CÜ=0 

221 

1020 F'0KE53269,0 

1620 IFDZ < >00R X X*= " 60701640 

“'V 

1030 F'R IN7 " n" 

1630 GÜSUB5660:60703570 

: 22 

1040 VE=2:H0=15:MS*="SOLITAIRE" 

1640 I F'D Z =060701660 

: 24 

1050 G0SUB4210 

1650 DZ=0:G0SUB5400:60701410 

- 2 5 

1060 VE=3:H0=15 s MS$=“ 

1660 IFXX*< > "4-"60701680 

: 26 

1070 60SUB4210 

1670 XX*="":G0SUB5400:60701410 

22? 

1080 P0KE646,5 

1680 H0=26:MS$=" 

128 

1090 PRIN7"H«l»iWW 

1690 F0RVE=77017S7EP2:B0SUB4210 

129 

1100 PRIN7" r— t— r—i 

1700 NEX7 

. TC: 

1110 PRIN7" 1 i 1 1 

1710 XX=88:YY=100 

.31 

1120 PRIN7" h—+--+-H 

1720 VE=7:H0=26:MS*="CHOIS1SSEZ" 

- 

1130 F'R INT" 1 1 ! 1 

1730 60SUB4210 

TT 

1140 F'RINT" r -—r—F—+-—F—H—r— t 

1740 VE=9:MS*="LE PION A " 

T 4 

1150 PRIN7" 1 1 1 1 1 1 1 1 

1750 G0SUB4210 

. 35 

1160 F'RINT" 1—H— h— F—H—-F—H—H 

1760 VE=11 : MS*=“07ER EN 11 

136 

1170 PRIN7" 1 1 1 i 1 1 1 i 

1770 6QSUB4210 

■ T 7 

1180 F'RINT" F—F“-F”-F—F—f-+—-1 

1780 VE=13: MS$="PREMIER 11 

;ts 

1190 PRIN7" 1 1 1 1 1 1 1 1 

1790 60SUB4210 

39 

1200 F'RINT " L —*—•f~-F—F—F— 1L — J1 

1800 G0SUB4010 

.40 

1210 PRIN7" 1 1 i 1 

1810 F'X (0) =9+ (XX-88) /8 

-41 

1220 F'RINT" F -F- —F -i 

1820 F'Y ( 0 ) =8+ ( Y Y-100 ) / 8 

142 

1230 PR 1Ni " i i i 1 

1830 HQ=PX < 0 ): VE=P Y( 0 ) 

; 43< 

1240 PR IN 7" L — 1 

1840 1=(HO-5)/2+1 : J»(VE-S)/2+1 

-44< 

1250 PQKE646,0 

1850 7 ( I,J ) =0 : MS$= " ": G0SUB4210 

:45 

1260 F'R IN7 11 i=Ii»M«mM 

1860 HÜ=26 : MS*= " 

Z46t 

1270 F'RINT 

1870 FQRVE=77017S7EP2 

247( 

1280 PRINT"l*»ftM«»l»M»»l» 

1880 G0SUB4210:NEX7 

24Q( 

1290 F'R IN7 

1890 REM****************** 

: 49 < 

1300 F'RINT"MM«»ftmi»»toM» 

1900 REM******** JEU ********** 

50< 

1310 F'RINT 

1910 REM*************************** 

251( 

1 320 PR IN7 " »l»Kl»»l» 

1920 VE=7:HG=26:M3$="* OPTIONS" 

252( 

1330 PRIIM7 

1930 GÜSUB4210 

253( 


1940 VE=9:H0=2S:MS$="=> F7 " 

254( 

1350 PRIN7 

1950 G0SUB4210 : P0KE53269,4 

:35< 


KM 
















I 


1960 A—PEEK( 56320 ):B=PEEK( 197 ) 

1970 IF B= 3 G 0 T 03040 

1980 XF(A AND 15 )<> 15 GQT 02010 

1990 IF(A AND 16)=0 G 0 T 02010 

2000 GOTO 1960 

2010 00 = 00+1 :G 0 SUB 5400 

2020 G 0 SUB 4030 :G 0 T 02100 

2030 VE= 7 :H 0 = 26 :MS$=" 

2040 G 0 SUB 4210 

2050 VE= 9 :H 0 = 28 :MS$=" 

2060 GOSUB 4210 
2070 00 = 00+1 

2080 REM********CASE DEPART******** 

2090 60 SUB 4010 

2100 DX( 00 )= 9 +(XX- 88 )/S 

2110 DY(00)=8+(YY ~100)/8 

2120 HO=DX( 00 )!VE=DY( 00 ) 

2130 ID=(HO- 5 )/ 2+1 :JD=(VE- 8 )/ 2+1 

2140 IFT (XD,JD)<> 0 G 0 T 02160 

2150 GQSUB 4230 :G 0 TÛ 2090 

2160 IFT(ID,JD+ 1 )< > 1 G 0 T 02190 

2170 IFT CIO,JD+ 2 )<> 0 G 0 T 02190 

2180 GOT 02310 

2190 IFJD= 1 ORJD= 2 G 0 T 02230 

2200 IFT(ID,JD- 1 )«> 1 G 0 T 02230 

2210 I FT ( ID, JD-- 2 ) <> 0 G 0 T 0£230 

2220 GOTO 2310 

2230 IFID= 1 ORID= 2 G 0 TÜ 227 Û 

2240 IFT(XD— 1 ,JD)<> 1 G 0 T 02270 

2250 IFT(ID- 2 ,JD)<> 0 GQT 02270 

2260 GOT 02310 

2270 IFT(ID+ 1 ,JD )<>1 GOT 02300 

2280 IFT(ID+ 2 ,JD)<>OGOT 023 OC 

2290 60 T 02310 

2300 6 QSUB 4230 :G 0 T 02090 

2310 MS$=" H#H" :GQSUB 4210 

2320 FORI= 1 T 050 :NEXT 

2330 BX=DX(CO):DY=DY(CO) 

2340 REM ******** CASE ARRIVEE**** 

2350 G 0 SUB 4010 

2360 AX(CO)= 9 +(XX- 88)/8 

2370 AY(CO)= 8 +(YY- 100)/8 

2380 HQ=AX(CO):VE=AY(CO) 

2390 IA=(HO- 5 )/ 2 +l:JA=(VE- 8 )/ 2+1 
2400 AY=AY(CO):AX=AX(CQ) 

2410 I FD X < >A X 60702440 

2 420 IF DY <> AYG 0 T 02440 

2430 MS$="»*ST:GOSUB 4210 :G 0 TÛ 2090 

2440 IFT(IA,JA)= 0 G 0 T 02460 

2450 G 0 SUB 4230 :G 0 T 02350 

2460 REM****VALIDITE ARRIVEE***** 

2470 IFABS (DX--AX ) O 4 G 0 T 02500 

2480 IFDYC>AYGGT 02500 

2490 GOTO 2540 

2500 X FABS(DY-AY)< > 4 G 0 T 02530 

2510 X FD X <>AX G 0 T 02530 

2520 GOT 02540 

2530 GOSUB 423 O: s G 0 T 02350 

2540 H 0 = ( AX + DX ) / 'Zi IF- (HQ -5 ) / 2 + 1 

2550 VE®(AY*DY>/2:JP®(VE-8)/2+1 


2560 IFT (IP,JP)<>0G0T02580 

2570 G0SUB4230:G0T02350 

2580 PX(CO>=H0: PY(CO)=VE: T(IP,JP)=0 

2590 T ( ID, J'D ) =0 s T (I A, J A ) = 1 

2600 MS$=" ":G0SUB421O 

2610 HO=A X(CO): VE®AY(CO) 

2620 MS*="«*SO":GOSUB4210 
2630 HO=DX(CO):VE=DY(CO) 

2640 MS$=" ":G0SUB4210 
2650 F'QKE53269,0 
2660 IFC0=31G0T04990 
2670 1 = 1 :J=1 

2680 IFT(I,J)<>1G0T02720 

2690 IFT(I,J+1)< >1GOT02720 

2700 IFT(I,J+2)<>0G0T02720 

2710 GOTO1890 

2720 IFT ( I, J) O0GÜTG2760 

2730 X FT(I,J+l)<>1GOT02760 

2740 IFT(T, J+2)<>1G0T02760 

2750 GOTO1890 

2760 IFT(I,J)< >1GOT02800 

2770 IFT(I +1,J)< >1GQT02800 

2780 IFT(1+2,J)< > 0GGT O2800 

2790 GOTO1890 

2800 IFT(I,J)<>0 GOT02840 

2810 XFT(X +1,J)<>1GOT02840 

2820 IFT<I+2,J)<>1G0T02840 

2830 GOTO1890 

2840 J=J+1 : IF J < 8GOT0268O 

2850 J=1; I = 1 +1 : XFI<860702680 

2860 REM******F'ERDU***** 

2870 GG=1:MA=CO 
2880 VE=7:H0=24 
2890 MS$="VOUS AVEZ PERDU" 

2900 6QSUB4210 

2910 VE=9:H0=25:MS$="XL VOUS RESTE" 
2920 G0SUB4210 
2930 VE=11 :HQ=27 
2940 MS*»STR*<32-C0>+" PIONS" 

2950 G0SUB4210 
2960 H0=26 

2970 VE®15iMS*®"APPUYEZ SUR" 

2980 G0SUB4210 

2990 H0=28:VE=17 s MS*="ESPACE" 

3000 G0SUB4210 
3010 F'OKE 198,0 s WA IT 198,1 
3020 GETA$: IFA*<>" "G0T03010 
3030 GOSUB5400 

3040 F(EM ************************* 
3050 REM ********OF'TIONS******-**** 
3060 REM ************************* 
3070 F'OKEXS, 184: P0KE53269,4 
3080 VE=7:HÜ=21 
3090 MS$="* RETOUR AU JEU" 

3100 GQSUB4210 

3110 VE=9:MS*="* SAUVEGARDE" 

3120 G0SUB4210 

3130 VE=11:MS$="* REVOIR PARTIE 
3140 G0SUB4210 

3150 VE® 13s MS*®"* NOUVELLE F‘AF:” I E 


:e 










3160 G0SUB4210 
3170 XX=184:VY=91 
3180 F'OKEXS, X X : POKEYS, Y Y 
3190 A=PEEK(56320) 

3200 IF(AAND15 > =14THENY Y = YY—16 

3210 IFYY<9iTHENYY-91 

3220 IF(AAND15)«13THENYY=YY+16 

3230 IF Y Y > 139THENYY--139 

3240 I. F ( AAND16 ) =080103260 

3250 60T03180 

3260 IFYY< >91G0T03300 

3270 IFG8 <>180T03300 

3280 IFCO < > MAGOT033.00 

3290 G0SUB4230:G0T03180 

3300 MS$=" 

3310 F0RVE=7TQ13STEP2 

3320 80SUB4210:NEXT 

3330 IF YY < >91G0T03350 

3340 X X=88:YY=100:G0T02030 

3350 IFYY=107THENGQSUB4650:G0T03070 

3360 IFYY=12380T03530 

3370 VE=7: H0=20 

3380 MS$="ETES VOUS SUR (0/N)?" 

3390 G0SUB4210 

3400 VE=11 :H0=25:MS$="0“:GÜSUB4210 
3410 H0=29:MS$="N"s G0SUB4210 
3420 POKEXS,216:POKEYS,124 
3430 A=PEEK(56320) 

3440 IF(A AND 15)=11THENP0KEXS,216 
3450 IF(A AND 15)=7THENP0KEXS,248 
3460 IF(A AND 16)=080103480 
3470 GOTO3430 

3480 IFPEEK(53252)=216THENRUN 
3490 HO=20 
3500 MS$=“ 

3510 G0SUB4210 

3520 VE=7 :6ÛSUB4210:G0T03070 

3530 REM*************************** 

3540 REM*******REPEAT PARTIE******* 

3550 REM*************************** 

3560 MA=C0 

3570 P0KE53269,0 

3580 VE=7:HÜ=21:MS*="F5=> AVANCE" 
3590 G0SUB4210 

3600 VE=9:MS$="F7=> ARRIERE" 

3610 G0SUB4210 

3620 VE=11 :MS$="F1=>REPRISE DU JEU" 
3630 G0SUB4210 
3640 B=PEEK(197) 

3650 IFB=6THEN60SUB3710 

3660 IFB=3THEN60SUB3840 

3670 IFB <> 4G0T03700 

3680 P0KE53269,4: X X =88:YY=100 

3690 G0SUB5400:G0T03040 

3700 GOT03640 

3710 REM *****AVANCE***** 

3720 IFC0=MA THENG0SUB4230:RETURN 
3730 C0=C0+1 

3740 HO=AX(CO):VE=AY(CO):MS$="B*W 
3750 G0SUB4210 


3760 G0SUB5130: T(I,J)=1 

3770 HQ=DX(CO):VE=DY(CO):MS$=" " 

3780 GGSUB4210 

3790 60SUB5130s T(I,J)=0 

3800 HO=PX(CO):VE=PY(CO):MS$=" " 

3810 G0SUB4210 

3820 G0SUB5130: T(I,JJ=0 

3830 RETURN 

3840 REM *****ARRIERE**** 

3850 IFC0=0THENG0SUB423D:RETURN 

3860 HO=AX(CO):VE=AY(CO):MS*=" " 

3870 6ü S U B 42iU 

3880 G0SUB5130: T(I,J)=0 

3890 HÜ=DX(CO):VE=DY(CO):MS*="■#»" 

3900 G0SUB4210 

3910 G0SUB5130: T(I,J)=1 

3920 HO=PX(CO) : VE=PY(CO) : MS$="■»»" 

3930 G0SUB4210 

3940 60SUB5130: T(I,J)=1 

3950 CQ=C0-1 

3960 RETURN 

3970 80T03970 

3*9S0 REM*************************** 
3990 REM**DEPLACEMENT DU CURSEUR ** 
4000 REM*************************** 
4010 PÛKEX S, X X :POKEYS,YY 
4020 A=PEEK(56320) 

4030 IF(A AND 15)<>14G0T04050 

4040 I FYY> 10 0 T H E N Y Y=Y Y --16 

4050 IFYY > = 132G0T04070 

4060 IF(X X >1200R X X <88 >THENYY=YY+16 

4070 IF(A AND 15)<>1380T04090 

4080 IFYY <196T HEN Y Y=YY+16 

4090 IFYY<=164G0T04110 

4100 IF < X X >1200RXX<88)THENYY=YY-16 

4110 IF(A AND 15)< > 11GGTÛ4130 

4120 IFXX>56THENX X = X X-16 

4130 IF X X > =88G0T04150 

4140 IF ( Y Y > 1640RYY < 132) THENXXf=XX+16 

4150 IF(A AND 15)<>760TQ4170 

4160 IF X X <152THENX X = X X +16 

4170 IF X X < = 120GOTO4190 

4180 IF <YY>1640RYY<132)THENXX=XX-16 

4190 IF(A AND16)=0THENRETURN 

4200 GOTO4010 

4210 PRINTLEFT$(VE*,VE); 

4220 PR INTLEFT*(HO*,HO) ; MS*; :RETURN 
4230 REM ************************ 
4240 REM **********BEEP********** 
4250 REM ************************ 
4260 PÜKEP6+1,60:P0KEP6,O 
4270 P0KEP6+6, 25 : POKEF'6+5,9 
4280 P0KE54278,0:P0KE54276,17 
4290 F0RF’5=1T0250: NEXT 
4300 P 0 K E -54276,0 
4310 RETURN 

4320 REM************************** 
4330 REM*****CHAR8EMENT*********** 
4340 REM************************** 
4350 P0KE53269,O 
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4360 GQSUB5400 

4370 VE=7:MS$="N0M DE LA PARTIE ?" 
4380 GO SUE'4 210 

4390 VE=9:MS$= " RETOUR OPTIONS)" 

4400 G0SUB4210 

44iO VE=1i:MS$=" "sG0SUB421O 

4420 G0SUB5150 

4430 IFXX$= " THENRETURN 

4440 OPEN1,8,15:CLOSE 1 

4450 IF S T=— 12 8 T H E N D Z=7 4 : G 0 T04610 

4460 OPEN1,8,2,XX$+",SEQ,READ" 

4470 INPUT#1, CO- 
4480 INPUT#1,GG 
4490 FÜRI=OTOCG 
4500 INPUTttl,PX <I) 

4510 INPUT #1,PY(I) 

4520 INPUT#1,DX<I) 

4530 1NPUT#1,DYU; 

4540 INPUT#!,AX(I) 

4550 INPUT#!,AV(I) 

4560 NE XT 

4570 CLOSE1 

4580 OPEN15,8,15 

4590 INPUT#15,DZ,DZ$,3Z,SZ 

4600 CLOSE15 

4610 GÜSUB5400 

4620 IFDZOOTHEN G0SUB5440 

4630 P0KE53269,4 : X X = B8:YY=100 

4640 RETURN 

4650 REM************************** 
4660 REM*****SAUVEGARDE*********** 
4670 REM************************** 
4680 POKE53269,0 

4690 VE=7sMS*="N0M DE LA PARTIE ?" 
4700 GGSUB4210 

4710 VE=9: MS$=" <*-: RETOUR OPTIONS)" 
i4720 G0SUB4210 
4730 VE=11:MS*=" ":G0SUB4210 
4740 G0SUB5150 
4750 IFXX*<>"*-"GOT04780 
4760 G0SUB5400:P0KE53269,4 
4770 XX ==88: VY=100: RETURN 
4780 OPEN1,8,15:CLOSE1 
4790 IF ST=-128THENDZ=74:G0T04950 
4800 OPEN1,8,2,XX*+",SEQ,WRITE" 
4810 PRINT#1,CO 
4820 PRINT#1,GG 
4830 FORI-OTOCO 
4840 PRINT#1,PX(I) 

4850 PR INT#1, P Y ( I ) 

4860 PRINT#1,DX(I) 

4870 PR INT#1,DY(I) 

4880 PR INT#1,AX(I) 

4890 PR INT#1,AY(I> 

4900 NEXT 

4910 CLOSE1 

4920 OPEN15,8,15 

4930 INPUT#15,DZ,DZ$,SZ,SZ 

4940 CLOSE15 

4950 G0SUB5400 


4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5320 
5530 
5540 
5550 


IFDZ<>OTHEN G0SUB544Ü 
P0KE53269,4:XX=88:YY=100 
RETURN 

REM ****** GAGNE***** 

G6= 1 

VE=7:HG=24;M5$="FELICITAT IONS" 
603UB4210 
VE=9:H0=23 

MS$="VOUS AVEZ GAGNE" 

G0SUB4210 

H0=26:VE=13:MS$="APPUYEZ SUR" 
G0SUB4210 

H0=28:VE=15:MS*="ESPACE" 
G0SUB4210 

POKE198,0:WAIT198,1 
6ETA$: IFAHK>" "GGT05100 
G0SUB5400:G0T03070 
1=(HO-5)/2+1:J=(VE—8)/2+1 
RETURN 

REM ************************** 
REM **‘*******TES7 TOUCHE****** 
REM ************************** 
P7=l:R$="":XX$="" 

POKE i 98,0 : WA J. T i 9S,i:QE TR* 

IFR$= " "ANDP7=1THEN G0SUB423O 

IFR$=" "ANDP7=1G0T05190 

IF ASC ( R4> ) < > 1360T 05250 

IF P 7 < > 1G O T05250 

6QSUB4230:G0T05190 

IF p 7 = 1G 0 T O5300 

IF ASC (R*) O20G0T05300 

FOR17= 1T0P7-1 : PR I NT "Il II" ; 

NEXT 

G0SUB4230: GOTO5180 
IFASC(R$)—13THENRETURN 
IFP7 < >15G0T05340 
IFASC <R*)=13G0T0534O 
G0SUB4230:G0T05190 
IFASC <R$)C65G0T05370 
IFASC(R*)>9560T05370 
GOT05380 

G0SUB4230:G0T05190 
PRINTR$; 

XX$=XX$+R$:P7—P7+1 :G0T05190 
HO=20 


MS$= 


II 


F0RVE=7T017STEP2 
G0SUB4210:NEXT:RETURN 
REM************************ 
REM*-******* MESSAGES******** 
REM************************ 

IFDZ=26THENMS$=" DISK PROTEGE" 
IFDZ=26G0T05580 

IFDZ=62THENMS*=" NOM INCONNU" 
IFD Z=62GQT05580 

IFDZ=63THENMS$=" NOM UTILISE" 


IFDZ=63G0T05580 
IFDZ=72THENMS*=" DISK PLEIN" 


I FDZ = 72G0T05580 

IFDZ=74THENMS*=" ERREUR DRIVE" 
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5560 

IF D Z = 7 4 GO T05580 

5780 

DAT AO 6 2,002,001,001, 

001, 

070 

5570 

MS*=LEFT$ <DZ$, 18) 

5790 

DATAO02,002,002,002, 

002, 

080 

5580 

VE=7:BÜSUB4210:H0-H0+2 

5800 

DATA002,001,001,001, 

002, 

087 

5590 

VE=11 :MS$="APPUYEZ SUR“ 

5810 

DAT A002,002,002,002, 

002, 

097 

5600 

G0SUB4210 

5820 

DATA002,002,002,002, 

002, 

107 

5610 

VE=13:liS$=" ESPACE" 

5830 

DATA002,002,002,002, 

002, 

117 

5620 

G0SUB4210 

5840 

DATA002,002,002,002, 

002, 

127 

5630 

POKE198,0; WA11198,1:GETRS 

5850 

DATAOO2,129 



5640 

IFRS O" "60T05630 

5860 

DATA255,255,255,255, 

Z. U •—) q 

1275 

5650 

GOSUB5400:RETURN 

5870 

DA TA255,192,000,003, 

192, 

1917 

5660 

HO=PX (0)i VE--P Y (0) : MSS=" " 

5880 

DATAOOO,003„192,000, 

003, 

2115 

5670 

G0SUB4210 

5890 

DATA192,000,003,192, 

000, 

2502 

5680 

G0SUB5130: T(I,J)=0:RETURN 

5900 

DAT A003,192,000,003, 

192, 

2892 

5690 

DATA002,002,001,001,001,007 

5910 

DAT AOOO,003,192,000, 

003, 

3090 

5700 

DATA002,002,002,002,002,017 

5920 

DATAI92,000,003,192, 

000, 

3477 

5710 

DATA002,001,001,001,002,024 

5930 

DATAO03,192,000,003> 

192, 

3867 

5720 

DATA002,002,002,001,001,032 

5940 

DAT AOOO,003,192,000, 

003, 

4065 

5730 

DATAOO1,001,001,001,001,037 

5950 

DATA 192,000,003,192, 

000, 

4452 

5740 

DATA002,002,001,001,001,044 

5960 

DATA003,192,000,003, 

192, 

4842 

5750 

DATAOO1,001,001,001,002,050 

5970 

DAT AOOO,003,255,255, 

255 ? 

5610 

5760 

DATA002,001,001,001,001,056 

5980 

DATA255,255,255,6375 


5770 

DATAOO1,001,001,002,002,063 

üp C/ (“ i 

PR J. NT " OTERREUR IGNE 

"; RF*10 


|3î 

i 6' 

13< 

18‘ 

13 : 

7,: 

13£ 


1 <*• ■ 
13 e 
, 8 , 
14( 


14 : 


14 : 

36 . 

14.: 


-L'a- 

14^ 

41. 

145 

. U 

14<f 
18 e 
141 
7,' 
14E 
7,1 
14= 
24, 
15C 
53, 
151 


COMMODORE 64 


SPACE WAR 


Ce jeu d'arcade est spécialement étudié 
pour les fanatiques d'action. Il nécessite 
un joystick sur le port 2. 


100 REM SPACE WAR 

101 REM MANFREDI DOMINICO 

102 REM (C) 1987 

103 AD=3276B: 

104 READ A: IF AO AD GOTO 111 

105 CS=0: FOR 1=0 TO 14:READ D 

106 IF D<0 GOTO 112 

107 F’OKE AD+I, D: CS=CS+D: NEXT 

108 READ D 

109 IF D=CS THEN AD=AD+15:GOTO 104 

110 PRINT "ERREUR DATA EN : "; AD:STOP 

111 PRINT "ERREUR ADRESSE : AD:STOP 

112 READ D: IF DOCS GOTO 110 

113 SYS 36522:END 

114 DATA 32768, 19,8,10,.0, 158,32,50,48,55 
,52,32,77,65,78,184,868 

115 DATA 32783,68,73,0,0,0,64,53,0,64,64 
,32,68,229,32,253,1000 

116 DATA 32798,15,32,70,15,'162,0,169,1,1 
57,152,219,232,224,40,208,1696 

117 DATA 32813,248,169,6,141,34,208,169, 
14, 141,35,208, 120, 169, 136, 141, .1939 

118 DATA 32828,20,3,169,15,141,21,3,169, 
127,141,13,220,169,1,141,1353 

119 DATA 32843,26,208,169,0,141,18,208,1 
73,17,208,41,127,141,17,208,1702 

120 DATA 32858,169,0,133,2,133,165,169,0 
,141,32,208,141,33,208,88,1622 


121 DATA 32873,162,0,169,9,157,0,216,157 
,0,217,157,0,218,169,0,1631 

122 DATA 32888,157,48,4,157,48,5,202,208 
,234,162,O,169,87,157,41,1679 

123 DATA 32903,4,157,49,6,169,91,157,81, 
4,157,89,6,232,224,38,1464 

124 DATA 32918,208,235,169,80, .133 ,.251,16 
9,4,133,252,T69,13,133,253,169,2371 

125 DATA 32933,32, 133,254,32, l'il, 15, 169, 
81,133,251,169,4,133,252,169,1938 

126 DATA 32948,91,133,254,32,111,15,169, 
117,133,251,169,4,133,252,32,1896 

127 DATA 32963,111,15,169,118,133,251,16 
9,4,133,252,169,89,133,254,32,2032 

128 DATA 32978,111,15,169,122,133,251,16 
9,4,133,252,169,11,133,253,32,1957 

129 DATA 32993,111,15,169,17,133,251,169 
,5,133,252,133,253,32,111,15,1799 

130 DATA 33008, 162,0,169,87, 157,246,4,. 16 
9,91,157,30,5,157,70,5,1509 

131 DATA 33023,157,110,5,157,150,5,.232,2 
24,27,208,232,169,86,141,41,1944 

132 DATA 33038,4,141,246,4,169,88,141,78 
,4,141,17,5,169,90,141,1438 

133 DATA 33053,126,6,141,177,5,169,92,14 
1,50,6,162,0,189,3,19,1286 

134 DATA 33068,157,248,7,232,224,8,208,2 
45,32,97,15,162,0,189,42,1866 
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135 DATA 33083,20,157,0,60,189,81,20,157 
,64,60,189,120,20,157,128,1422 

136 DATA 33098,60,189,159,20,157,192,60, 
189,198,20,157,0,61,189,237,1888 

137 DATA 33113,20,157,64,61,189,20,21,15 
7,128,61,232,224,39,208,209,1790 

138 DATA 33128,162,0,189,11,19,157,0,208 
,232,224,16,208,245,169,255,2095 

139 DATA 33143,141,29,208,141,21,208,162 
,8,169,0,157,38,208,202,208,1900 

140 DATA 33158,250,169,240,141,6,212,169 
,5,141,15,212,169,35,141,4,1909 

141 DATA 33173,212,162,10,142,1,212,160, 
32,32,88,15,173,0,220,41,1500 

142 DATA 33188,16,240,8,232,224,20,208,2 
36,76,151,9,120,32,21,253,1846 

143 DATA -33203,32,163,253,32,129,255,32, 
253,15,32,70,15,32,68,229,1610 

144 DATA 33218,169,0,141,32,208,169,11,1 
41,35,208,162,0, 169,9, 157,1611 

145 DATA 33233,238,218,202,208,248,162,0 
,169,87,157,249,6,157,193,7,2301 

146 DATA 33248,232,224,38,208,245,162,0, 
189,0,20,157,75,7,189,14,1760 

147 DATA 33263,20,157,115,7,189,28,20,15 
7,94,7,169,2,157,75,219,1416 

148 DATA 33278,157,115;219,157,94,219,15 
7,134,219,232,224,14,208,219,162,2530 

149 DATA 33293,0, 169,3, 157,.142, 219, 232,2 
24,3,208,248, 169,33, 133, 251 ,'2191 

150 DATA 33308,169,7,133,252,169,4,133,2 
53,169,89,133,254,32,111,15,1923 

151 DATA 33323, 169,52., 133,251,169,7, 133, 
252,32,111,15,169,70,133,251,1947 

152 DATA 33338,169,7,133,252,32,111,15,1 
69,86,141,249,6,169,88,141,1768 

153 DATA 33353,30,7,169,92,141,193,7,141 
, 212,7,169,90,141,230,7, 1636 

154 DATA 33368,162,0,169,8,157,224,217,2 
02,208,250,162,0,189,216,19,2183 

155 DATA 33383,157,48,6,157,68,6,189,236 
,19,157,88,6,157,108,6,1408 

156 DATA 33398,232,224,20,208,233,32,19, 
13,32,97,15,173,30,208,162,1698 

157 DATA 33413,0,189,59,21,157,6,60,189, 
85,21,157,70,60,189,111,1374 

158 DATA 33428,21,157,134,60,139,137,21, 
157,198,60,189,163,21,157,6,1670 

159 DATA 33443,61,189,189,21,157,70,61,1 
89,215,21,157,134,61,189,241,1955 

160 DATA 33458,21,157,198,61,232,224,26, 
208,203,162,0,189,37,19,157,1894 

161 DATA 33473,248,7,232,224,8,208,245,1 
62,0,189,27,19,157,37,208,1971 

162 DATA 33488,232,224,10,208,245,169,60 
,141,0,208,169,128,141,1,208,2144 

163 DATA 33503,169,255,141,28,208,169,1, 
133,251,141,29,208,141,21,208,2103 

164 DATA 33518,169,8,133,2,169,128,133,2 
53,32,86,15,32,208,13,32,1413 

165 DATA 33533,208,13,32,243,14,169,4,13 
3,165,165,165,44,21,208,208,1792 

166 DATA 33548,12,32,120,14,6,165,165,16 
5,208,240,76,78,11,32,163,1487 

167 DATA 33563,14,165,165,44,16,208,208, 
24, 189,4,20©,201,ÎO,176, 11,1643 

168 DATA 33578,173,21,208,37,166,141,21, 
208,76,17,11,222,4,208,76,1589 


169 DATA 33593,17,11,189,4,208,201,0,16, 
243,173,16,208,37,166, 141,1630 

170 DATA 33608,16,208,76,17,11,173,30,20 
8,133,171,201,0,208,3,76,1531 

171 DATA 33623,227,11,160,0,165,171,57,-5 
7,19,217,57,19,208,3,76,1447 

172 DATA 33638,230,11,200,192,6,208,238, 
165,171,41,6,201,6,240,43,1958 

173 DATA 33653,165,171,41,10,201,10,240, 
46,165,171,41,18,201,18,240,1738 

174 DATA 33668,49,165,171,41,34,201,34,2 
40,52,165,171,41,66,201,66,1697 

175 DATA 33683,240,55,165,171,41,130,201. 
,130,240,58,76,227,11,173,21,1939 

176 DATA 33698,208,41,249,141,21,208,76, 
224,11,173,21,208,41,245,141,2008 

177 DATA 33713,21,208,76,224,11,173,21,2 
08,41,237, 141,21,208,76,224, .1890 

178 DATA 33728,11,i73,21,208,41,221,141, 
21,208,76,224,11,173,21,208,1758 

179 DATA 33743,41,189,141,21,208,76,224, 
11,173,21,208,41,125,141,21,1641 

180 DATA 33758,208,32,13,15,76,247,10,32 
,70,15,169,0,133,2,169,1191 

181 DATA 33773,13,141,12,212,169,8,141,8 
,212,169,128,141,11,212,169, 1746 

182 DATA 33788,129,141,11,212,169,0,141, 
21,208,162,4, 160,160,32,88, 1638 

183 DATA 33803,15,202,208,248,206,102,7, 
173,102,7,201,48,240,3,76,1838 

184 DATA 33818,127,10,169,240,141,6^212, 
169,21,141,4,212,169,32,141,1794 

185 DATA 33833,15,212,169,52,141,240,159 
, 169,1,141,241,159,160,4,32, 1895 

186 DATA 33848,88,15,174,240,159,238,241 
,159,173,241,159,201,255,240,9,2592 

187 DATA 33863,202,208,243,141,1,212,76, 
54,12,169,1,141,241,159,206,2066 

188 DATA 33878,240,159,173,240,159,201,5 
,240,3,76,54,12,169,20,141,1892 

189 DATA 33893,4,212,32,97,15,162,0,189, 
11,22,157,0,60,189,120,1270 

190 DATA 33908,20,157,64,60,189,89,22,15 
7,128,60,189,198,20,157,192,1702 

191 DATA 33923,60,189,50,22,157,0,61,189 
,128,22,157,64,61,189,20, 1369 

192 DATA 33938,21,157,192,61,232,224,39, 
208,209,162,0,160,240,152,157,2214 

193•DATA 33953,248,7,200,232, 224, 8, 208, 2 
46,169,243,141,254,7,162,0,2349 

194 DATA 33968,189,63,19,157,0,208,232,2 
24,16,208,245,162,0,169,1,1893 

195 DATA 33983,157,39,208,232,224,8,208, 
248,169,0,141,16,208,141,28,2027 

196 DATA 33998,208,169,255,141,29,208,14 
1,21,208,173,0,220,41,16,208,2038 

197 DATA 34013,249,169,53,141,102,7,160, 
1,185,83,7,217,123,7,240,1744 

198 DATA 34028,5,176,11,76,6,13,192,4,24 
0,4,200,76,230,12,160,1405 

199 DATA 34043,4,185,83,7,153,123,7,136, 
208,247,160,4,169,48,153,1687 

200 DATA 34058,83,7,136,208,248,76,127.,! 
0,120,169,127,141,13,220.169,1854 

201 DATA 34073,1,141,26,208,169,47,141,1 
8,208,173,17,208,41,127,141,1666 

202 DATA 34088,17,208,169,63,141,20,3,16 
9,13,141,21,3,169,2, 133, 1272 










203 DATA 34103,3,169,0,133,2,88,96,173,2 
5,208,41,1,240,40,141,1360 

204 DATA 34118,25,208,198,3,16,4,169,2,1 
33,3,166,3,189,247,18,1384 

205 DATA 34133,141,33,208,189,250,18,141 
,34,208,189,241,18,141,22,208,2041 

206 DATA 34148,189,244,18,141,18,208,138 
,240,3,76,129,234,32,157,13,1840 

207 DATA 34163,165,2,240,34,198,252,16,4 
,169,5,133,252,166,252,189,2077 

208 DATA 34178,45,19,141,250,7,141,251,7 
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211 DATA 34223,162*0,189',49,6,157,48,6,1 
89,89,6,157,88,6,232,1384 


212 DATA 34238,224,39,208,239,173,48,6,1 

41.87.6.173.88.6.141.127.1706 

213 DATA 34253,6,96,173,0,220,41,15,201, 
11,240,107,201,7,240,116, 1674 

214 DATA 34268,201,14,240,125,201,13,240 
,3,76,235,13,76,107,14,169,1727 

215 DATA 34283,2,44,21,208,208,35,173,0, 
220,41,16,208,58,173,0,1407 

216 DATA 34298,208,141,2,208,173,1,208,1 

41.3.208.173.21.208.9.2.1706 

217 DATA 34313,141,21,208,173,16,208,41, 
253,141,16,208,169,2,44,16,1657 

218 DATA 34328,208,208,24,173,2,208,201, 
255,208,13,169,0,141,2,208, 2020 

219 DATA 34343, 173, 16', 208,9,2, 141,16,208 
,238,2,208,96,173,2, 208,1700 

220 DATA 34358,201,64,208,245,173,21,208 
,41,253,141,21,208,96,173,0,2053 

221 DATA 34373, 208,201,37,240,3,206,0,20 
8,76,235,13,173,0,208,201,2009 

222 DATA 34388,255,240,246,238,0,208,76, 
235,13,173,1,208,201,56,240,2390 

223 DATA 34403,233,206,1,208,76,235,13,1 
73,1,208,201,168,240,220,238,2421 

224 DATA 34418,1,208,76,235,13,198,253,1 

65.253.208.36.169.128.133.253.2329 

225 DATA 34433,173,21,208,5,165,141,21,2 
08,173,16,208,5,165,141,16,1666 

226 DATA 34448,208,32,227,14,32,163,14,1 
69,70,157,4,208,165, 254, 157,1874 

227 DATA 34463,5,208,96,165,165,201,4,24 
0,23,201,8,240,26,201,16,1799 

228 DATA 34478,240,29,201,32,240,32,201, 
64,240,35,162,10,169,127,133, 1915 

229 DATA 34493,166,96,162,0,169,251,133, 
166,96,162,2,169,247,133,166,2118 

•230 DATA 34508,96,162,4,169,239,133,166, 
96,162,6,169,223,133,166,96,2020 

231 DATA 34523,162,8,169,191,133,166,96, 

173.4.220.133.254.165.254.201.2329 

232 DATA 34538,56,144,245,201,168,176,24 

I, 96,198,251,16,17,169,1,133,2112 

233 DATA 34553,251,173,1,208,205,15,208, 
240,5,144,4,238,15,208,96,2011 

234 DATA 34568,206,15,208,96,169,0,141,1 
3,212,169,11,141,12,212,169,1774 

235 DATA 34583,10,141,8,212,169,128,141, 

II, 212,169,129,141,11,212,162, 1856 

236 DATA 34598,4,189,83,7,201,57,240,4,2 
54,83,7,96,202,240,8,1675 


237 DATA 34613,169,48,157,84,7,76,40,15, 
169,48,141,84,7,76,38,1159 

238 DATA 34628,15,162,19,169,0,157,255,2 
1 1,202, 208, 250, 169,-.15, 141,24, 1997 

239 DATA 34643,212,96,160,2,206,255,159, 
208,251,136,208,248,96,162,0,2399 

240 DATA 34658,169,0,157,0,60,157,0,61,2 
02,208,247,96,166,253,160,1936 

241 DATA 34673,0,165,254,145,251,165,251 
,24,105,40,133,251,165,252,105,2306 

242 DATA 34688,0,133,252,202,208,236,96, 
173,25,208,41,1,240,28,141,1984 

243 DATA 34703,25,208,198,165,16,4,169,2 
,133,165,166,165,189,253,18,1876 

244 DATA 34718,141,18,208,189,0,19,141,2 
2,208,138,240,3,76,129,234,1766 

245 DATA 34733,32,203,15,173,0,48,133,3, 
162,0, 189, 1,48, 157-, 0, 1164 

246 DATA 34748,48,232,224,7,208,245,165, 
3,141,7,48,76,49,234,173,1860 

247 DATA 34763,1,19,56,233,2,141,1,19,20 
1,208,144,1,96,169,215,1506 

248 DATA 34778,141,1,19,162,0,189,153,7, 
157,152,7,232,224,39,208,1691 

249 DATA 34793,245,166,2,189,79,19,240,6 
,141,191,7,230,2,96,133,1746 

250 DATA 34808,2,240,239,96,173,14,220,4 
1,254,141,14,220,165,1,41,1861 

251 DATA 34823,251,133,1,169,0,133,251,1 
69,216,133,252,162,4,160,0,2034 

252 DATA 34838,169,0,145,251,136,208,251 
,202,208,248,169,0,133,251,133,2504 

253 DATA 34853,253,169,208,133,252,169,4 
8,133,254,162,4,160,0,177,251,2373 

254 DATA 34868,145,253,136,208,249,230,2 
52, 230,-254, 202,208,240,162, 0, 189,2958 

255 DATA 34883, 137', 16,157,0,48,232, 224, 2 
24, 208, 245, 162, 0, 189, 105, 1.7, 1964 

256 DATA 34898,157,128,49,232,224,80,208 
,245,162,0,189,185,17,157,216,2249 

257 DATA 34913,48,232,224,80,208,245,162 
,0,189,9,18,157,0,50,232,1854 

258 DATA 34928,224,232,208,245,165,1,9,4 
,133,1,173,14,220,9,1,1639 

259 DATA 34943,141,14,220, 169,28,141,2.4, 
208,96,79,79,79,79,65,65,1487 

260 DATA 34958,85,85,126,126,102,126,102 
,102,102,0,126,102,102,124,102,1512 

261 DATA 34973,126,126,’O,126,96,96,96,96 
,126,126,0,124,102,102,102,1444 

262 DATA 34988,102,126,124,0,126,96,96,1 
20,96,126,126,0,126,96,96,1456 

263 DATA 35003,120,120,96,96,0,126,102,9 
6,110,102,126,126,0,102,102,1424 

264 DATA 35018,102,126,126,102,102,0,24, 
24,24,24,24,24,24,0,6,732 

265 DATA 35033,6,6,6,102,126,126,0,102,1 
02,124,112,124,102,102,0,1140 

266 DATA 35048,96,96,96,96,96,126,126,0, 
99,119,127,107,99,99,99,1481 

267 DATA 35063,0,102,118,126,126,110,102 
,102,0,126,102,102,102,102,126,1446 

268 DATA 35078,126,0,126,102,102,126,126 
,96,96,0,126,102,102,102,126,1458 

269 DATA 35093,124,14,0,126,102,102,126, 
124,102,102,0,126,96,96,126,1366 

270 DATA 35108,6, 126, 126,0, 126., 24,24, 24, 
24,24,24,0,102,102,102,834 


110 










271 DATA 35123,102,102,126,126,0,102,102 
,102,102,102,60,24,0,99,99,1248 

272 DATA 35138,99,107,127,119,99,0,102,1 
02,126,24,126,102,102,0,102,1337 

273 DATA 35153,102,102,126,126,24,24,0,1 
26,6,12,24,48,126,126,0,972 

274 DATA 35168,0,0,24,24,0,24,24,0,126,1 
02,102,102,102,126,126,882 

275 DATA 35183,0,24,56,120,24,24,126,126 
,0,126,6,6,126,96,126,986 

276 DATA 35198,126,0,126,6,6,28,6,126,12 
6,0,96,102,102,127,127,1104 

277 DATA 35213,6,6,0,126,96,126,6,6,126, 

126,0, 126,96,96, 126, 1068 

278 DATA 35228,102,126,126,0,126,6,12,24 
,24,24,24,0,126,102,102,924 

279 DATA 35243,60,102,126,126,0,126,102, 
102,126,6,126,126,O,255,255,1638 

280 DATA 35258,192,192,207,200,200,200,2 
55,255,0,O,255,0,0,0,255,2211 

281 DATA 35273,255,3,3,243,19,19,19,19,1 
9,19,19,19,19,19,19,713 

2ë2 DATA 35288,19,19,19,243,3,3,255,255, 
0,0,0,0,0,0,0,816 

283 DATA 35303,0,0,0,0,255-, 0, 0, 255,255, 2 
00,200,200,207,192,192,1956 

284 DATA 35318,255,255,200,200,200,200,2 
00,200,200,200,60,66,153,161,161,2711 

285 DATA 35333,153,66,60,0,0,0,0,0,3,255 
,255,0,12,12,61,877 

286 DATA 35348,255,255,255,255,0,0,0,0,6 
4,240,255,255,0,0,0,1834 

287 DATA 35363,48,60,255,255,255,0,3,3,1 
5,63,255,255,255,244,253,2219 

288 DATA 35378,255,255,255,255,255,255,2 
55,255,127,127,223,247,255,255,255,3529 
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55,64,64,212,253,253,255,255,255,3396 

290 DATA 35408, 0,0,0,0,0,64,22: 

0,0,3,3,255,803 

291 DATA 35423,255,0,0,64,192,192,240, 
5,255,3,3,3,15,15,15,1507 

292 DATA 35438,255,255,192,19:. 

40,252,255,255,0,0,0,0,0,2344 

293 DATA 35453,0,255,255,0,0,( 

48,0,0,0,3,609 

294 DATA 35468,3,15,63,63,192,192,240,24 
0,244,244,253,253,0,0,0,2002 

295 DATA 35483,0,192,192,192,192,0,0,48, 
48,48,48,240,244,0,1,1445 

296 DATA 35498,3,15,15,15,63,63,0,0,0,0, 
192,192,192,192,21,963 

297 DATA 35513,85,85,170,170,170,170,170 
,85,85,85,170,170,170,170,170,2125 

298 DATA 35528,85,85,85,165,165,165,165, 
165,165,165,165,165,165,165,165,2235 

299 DATA 35543, 165, l<b5, 165, 165, 165, 165, 1 
65,165,164,170,170,170, 170,170,170,2504 

300 DATA 35558,170,170,165,165,165,170,1 
70,170,170,170,208,215,208,255,189,2760 

301 DATA 35573,48,0,6,0,15,7,7,249,242,2 
33,208,215,208,240,241,1919 

302 DATA 35588,242,243,244,245,242,246,8 
5,104,125,104,165,104,205,104,245,2703 

303 DATA 35603,104,125,122,165,122,205,1 
22,7,1,14,1,5,2,11,9,1015 
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307 DATA 35663,32,32,13,1,14,6,18,5,4,9, 
32,4,15,13,9,207 

308 DATA 35678, 14,9,3, 15,32, 16, 18,5, .19, 5 
,14,20,5,32,32,239 

309 DATA 35693,32,32,46,46,46,46,46,32,3 
2,32,32,19,16,1,3,461 

310 DATA 35708,5,32,23,1,18,32,46,32,32, 
36,32,49,57,56,55,506 

311 DATA 35723,32,32,46,32,10,15,25,19,2 
0,9,3,11,32,16,15,317 

312 DATA 35738,18,20,32,50,32,46,32,1,16 
,16,21,25,5,26,32,372 

313 DATA 35753,19,21,18,32,12,5,32,2,15, 

21.20.15.14.32.4.262 

314 DATA 35768,5,32,20,9,18,32,16,15,21, 

18.32.3.15.13.13.262 

315 DATA 35783,5,14,3,5,18,32,46,32,32,3 


ro t o 77q 


316 DATA 35798,0,32,32,32,32,32,79,80,81 
,32,32,32,32,32,85,645 

317 DATA 35813,32,84,81,32,32,32,67,65,6 
6,67,68,69,70,71,72,908 

318 DATA 35828,73,74,75,76,77,68,71,71,7 
7,65,75,19,3,15,18,857 

319 DATA 35843,5,32,32,58,32,48,48,48,48 
,48,18,5,3,15,18,458 

320 DATA 35858,4,32,58,32,48,48,48,48,48 
,22,9,5,19,32,32,485 

321 DATA 35873,58,32,53,32,32,32,32,32,2 
55,255,192,128,0,64,159,1356 

322 DATA 35888,255,192,144,0,0,144,0,0,1 
59,255,192,128,0,64,255,1788 
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DATA 

35948, 


,0;255,255,192,128,1350 


:,64, 


327 DATA. 35963,0,64,143,254,64,136, 
136,2,64,143,254,64,128,1518 

328 DATA 35978,0,64,143,254,64,136,2,64, 
136,2,64,136,2,64,136,1267 


329 DATA 35993,2,64,248,3,192,: 
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2,128,0,64,143,255,192, 136,2129 

330 DATA 36008,0,0,136,0,0,136,0,0,136,0 
,0,136,0,0,136,680 

331 DATA 36023,0,0,136,0,0,143,255,192,1 
28,0,64,255,255,192,255,1875 

332 DATA 36038,255,192,128,O,64,143,255, 
192,136,0,0,136,0,0,143,1644 

333 DATA 36053,240,0,128,16,0,143,240,0, 
136,0,0,136,0,0,143,1182 

334 DATA 36068,255,192,128,0,64,255,255, 
192,248,3,192,136,2,64,136,2122 

335 DATA 36083,2,64,136,2,64,136,2,64,13 
6,2,64,136,242,64,136,1250 

336 DATA 36098,146,64,136,146,64,136,146 
,64,143,158,64,128,0,64,255,1714 
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337 DATA 36113,255,192,255,255,192,128,0 
,64,143,254,64,136,2,64,136,2140 

338 DATA 36128,2,64,143,254,64,128,0,64, 
143,159,192,136,144,0,136, 1629 

339 DATA 36143,72,0,136,39,192,136,16,64 
,248,15,192,0,O,0,192,1302 

340 DATA 36158,O,0,242,192,0,254,240,0,1 
70,168,0,170,169,0,42,1647 

341 DAT A 36173,168,0,0,0,0,0,0,0,0,0,ü,0 
,0,0,0,168 

342 DATA 36188,0,0,0, 0, 0,40,0,0, 10, .1.28,0 
,40,0,0,0,218 

343 DATA 36203,0,0,0,0,128,0,2,160,0,2,1 
60,0,10,168,0,630 

344 DATA 36218,10,168,0,42,170,0,174,186 
,192,170,170,128,10,168,0,1588 

C'45 DAT A 56233, 128,0,2, 160,0,2, 160, 0, 10, 
168,0,10,168,0,42,850 

346 DATA 36248,170,0,186,235,128,170,170 
,128,10,168,0,128,0,2,160,1655 

347 DATA 36263,0,2,160,0,10,168,0,10,163 
,0,42,170,0,235,174,1139 

348 DATA 36278,128,170,170,128,10,168,0, 
160,0,0,160,0,2,168,0,1264 

349 DATA 36293,10,170,0,106,90,144,10,17 
0,0,2,168,0,0,160,0,1030 

350 DAT A 36308,O,160,0,0,0,0,160,0,2, 168 
,0,10,170,0,165,835 

351 DATA 36323, 16*7,96, 10, 170,0,2, 168,0,0 
, 160, 0,0,0,0,0,775 

352 DATA 36338,0,0,0,0,2,168,0,10, 170,0, 
90,150,160,10,170,930 

353 DATA 36353,0,2,168,0,0,0,0,0,0,255,2 
55,192,128,0,64,1064 

354 DAT A 36368,143,255, 192,136,0,0,136,0 
,0,136,31,192,136,16,64, 1437 

355 DAT A 36383,136,30,64, 136,2,64,136,2, 
64,143,254,64,128,0,64, 1287 

356 DATA 36398,255,255,192,255,255,192,1 
28,0,64,143,254,64,136,2,64,2259 


357 DATA 36413,136,2,64,136,2,'64,136, 2,6 
4, 136, 2 ,.64, 136, 2,64, 1010 

358 DATA 36428,136,2,64,143,254,64,128,0 
,64,255,255,192,255,255,192,2259 

359 DATA 36443,128,0,64,143,30,64,137,1S 
,64,137,18,64,137,18,64,1086 

360 DATA 36458,137,18,64,137,242,64,136, 
2,64,136,2,64,136,2,64,1268 

361 DATA 36473,136,2,64,248,3,192,248,3, 
192,136,2,64,136,2,64,1492 

362 DATA 36488,136,2,64,136,2,64,136,2,6 
4,68,4,128,34,9,0,849 

363 DATA 36503,17,18,0,8,228,0,4,8,0,2,1 
6,0,1,224,0,526 

364 DATA 36518,176,128,0,0,169,0,141,32, 
208,141,33,208,169,1,141,1547 

365 DATA 36533,134,2,32,68,229,162,0,189 
,42,143,32,210,255,232,224,1954 

366 DATA 36548,40,208,245,165,197,201,18 
,240,12,201,20,240,3,76,199,2065 

367 DATA 36563,142,169,1,76,219,142,169, 
8,141,255,159,169,0,133,251,2034 

368 DATA 36578,169,128,133,252,169,1,133 
,253,169,8,133,254,162,21,160,2145 


369 DATA 36593,0,177,251,145,253,136,208 
,249,230,252,230,254,202,208,242,3037 

370 DATA 36608,169,1,174,255,159,160,15, 
32,186,255,169,9,162,82,160,1988 

371 DATA 36623,143,32,189,255,169,1,133, 
251,169,8,133,252,162,16B,160,2225 

372 DATA 36638,22,169,251,32,216,255,96, 
32,32,32,32,32,83,65,85,1434 

373 DATA 36653,86,69,71,65,82,68,69,32,6 


7,65,83,83,69,84,84,1077 

374 DATA 36668,69,32,79,85,32,68,73,83,7 
5,32,40,67,44,68,41,888 

375 DATA 36683,32,63,32,32,32,32,32,83,8 
0,65,67,69,32,87,65,803 

376 DATA 36698,82,0,-1,82 


COMMODORE 64 




THE N ILE 


Le but du jeu est fort simple : ramasser le plus 
de trésors possibles en un temps donné. 

Mais serpents, momies et autres êtres malfaisants 
ne sont pas tout à fait d'accord... 


10 P0KE808,237 

100 PRINT"WTHE MILE" 

120 PRINT "H" 

140 POKE53280,2:PQKE53281,0 

160 PÜKE 55,255:PQKE56,47 

180 V=53248:PüKEV+22,216:POKEV+24, 28 

200 POKEV+34,7 :POKEV+35,5 

220 F0RI = 12288 TOI2543': READ G): POKEI, Q: NE 

XT 

240 FORI = 12544T012573:PÛKE I, 0: NEXT 

260 FORI=12672 TO 12847:READ Q:POKEI,Q:N 


EXT 

280 DATA32,131,47,55,63,63,255,254 
300 DATA124,130,130,254,130,130,130,130 
320 DATA240,136,136,252,130,130,130,254 
340 DATA 126,128,128,128,128,128,128,126 
360 DATA252,130,130,130,130,130,130,252 
380 DATA254,128,128,240,128,128,128,254 
400 DATA254,128,128,240,128,128,128,128 
420 DATA254,128,128,128,142,130,130,254 
440 DATA 130,130,130,254,130,130,130,130 
460 DATA60,24,24,24,24,24,24,60 
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480 DATA28,4,4,4,4,4,132,126 

1500 PRINT"C 

500 DATA136,144,160,192,224,140,132,130 

C"; 

520 DATA128,128,128,128,128,128,128,254 

1520 F'RINT": £££ £ £ £££ £££ £ £ 

540 DATA254,146,146,146,130,130,130,130 

£££ C"; 

560 DATA254,130,130,130,130,130,130,130 

1540 F'RINT": £ £££ ££ £ £ £ £ 

580 DATA124,130,130,130,130,130,130,124 

££ C " ; 

600 DATA252,130, 130,130,252,128,128,128 

1560 F'RINT“C £ £ £ £££ £ £ £ £££. 

620 DATA126,130,130,130,126,2,2,2 

£££ C"; 

640 DATA252,130,130,130,252,176,140,130 

1580 PRIN'T"C 

660 DATA254, 128,128,254,2,2,2,254 

C" ; 

680 DATA254,16,16,16,16,16,16,16 

1600 F'RINT": THE N ILE DE DUHGUX JER 

700 DATA130,130,130,130,130,130,130,126 

OME C"; 

720 DATAI30,68,68,68,40,40,40,16 

1620 F'RINT": 11 : Il II 3 II ] 

740 DATA130,130,130,130,146,146,146,254 

r “ ■ 

L y 

760 DATA130,68,40,16,40,68,130,130 

1640 F'RINT"C 

780 DATA130,68,68,40,40,16,16, 16 

C"; 

800 DATA254,4,8,16,32,64,128,254 

1660 F'RINT": T*- 

B20 DATA255,126,60,24,24,60,126,255 

: " ; 

840 DATA165,165,165,165,165,165,165,165 

1680 F'RINT": TCO 

860 DAT AO,255,0,255, 0,0,0,0 

C"; 

880 DATAI,3,7,15,31,63,127,255 


900 DATA128,192,224,240,248,252,254,255 


920 DATA124,130,130,130,130,130,130,124 


940 DATA56,88,152,24,24,24,24,24 


960 DATA254,2,2,254,128,128,128,254 


980 DATA254,2,2,30,2,2,2,254 


1000 DATA130,130,130,254,2,2,2,2 


1020 DATA254,128,128,254,2,2,2,254 


1040 DATA128,128,128,254,130,130,130,254 


1060 DATA254,6,6,6,6,6,6,6 

L 1 

1080 DATA254,130,130,254,130,130,130,254 


1100 DATA254,130,130,254,2,2,2,2 


1120 DATAO,24,24,0,24,24,0,0 

1820 F'RINT" C==========œ===n==== s = ï = a =«= œœ œ=== :! =====:= 

1140 DATAO,0,0,0,0,0,24,24 

=====-- =t"; 

1160 DATA255,255,255,255,255,255,255,255 

1840 F'RINT" C C C C C C C C C C C C C C C C C C C I C C C C C C C C C 

1180 DATAO,0,0,255,0,255,0,255 

c::::::::::"; 

1200 DATAI,3,7,255,31,255,127,255 

1850 LOAD"NILE*",8,1 

1220 DATA128,192,224,255,248,255,254,255 

1880 REM******************************** 

1240 DATA255,129,189,169,129,189,129,255 


1260 DATA 126. 129. 189. 165. 165. 189. 1.29. 126 

1881 RESTQRF 

1280 DATA24,24,126,126,60,60,24,24 

1890 FOR X=0TQ8:READ L(X):NEXT X 

1300 DATA60,66,255,129,153,153,129,255 

1900 GOSUB 2330 

1320 DATA24,24,255,153,24,36,66,66 

1910 P RI NT " MS" s 00=54272 ; UL= 1884 : UG=68 ;; D= 

1340 DATA24,8,16,32,0,0,0,0 

9: 8=0:FL=0 

1341 FORL—54272 TG 54295: POKEL, 0: NEXT: F'G 

1920 FOR X= 1064T0 1103 :POKEX, 64:F'0KEX + 

KE54296,15:P0KE54277,8:P0KE54278,255 

CG,0:NEXT X 

1342 P0KE54276,85 

1930 FOR X=11Ü4TQ1863 : IF RND (8)>.8THEN 

1343 F1=100:F2=230 

F'OKE X , 65: POKEX+CO, 7 

1345 FOR Z= 1T077: PORE 54272,Fl 

1940 IF RND (7) >.5 THEN F'OKE X, 64:P0KEX + 

1346 P0KE54287,F2 

CG, 0 

1347 F2=F2-2:F1=F1*.99:NEXT 

1950 NEXT 

1348 P0KE54278,15 

1960 FOR X=0 TO 9:M=INT (RND(9)*600)+114 

1360 PR INT "W; 

4 : F'OKE M, 66 : F'OKE M+CO, 1 : NEXT X 

1365 P0KE641,1 

1970 FOR X=0 TO 9:.S=INT(RND(9)*600)+1144 

1380 PRINT"C C C C C C C C C CIC C C C C C C C C C C C C C C C C C 

: F'OKE S, 19: POKES+CO, 5: NEXT X 

C ICC CCC CICC."; 

1980 FOR J=1T06 

1400 F'RINT" C 

1990 TR=INT(RND(9)*480)+1144:F=0:FOR X=0 

C " ; 

TO 8 : A=F'EEK ( TR+L ( X ) ) 

1420 F'RINT" C DUHQUX JEROME 

2000 IF A=13 OR A=19 THEN F=1 

C"; 

2010 NEXT X : IF F=1THEN 1990 

1440 F'RINT": PRESENTE 

2020 TR ( J ) =TR : F'OKE TR, 67 : F'OKE TR+CO, 7 s NE 

r «» » 

L y 

XT J 

1460 F'RINT" C 

2030 TIT="OOOQOO" 

C “ 5 

2040 K=F'EEK (197): J=PEEK ( 653 ) 

1480 F'RINT": £ 

2050 F'RINT"(siTEMF'S: " MI DT (TI T, 4, 1 ) " : "RIGH 

C"; 

TT(TI$,2>" SCORE:"STR* (G); 


113 






















2060 PR INT" DYNAMITE:" STR$(D> 

2070 JY=PEEK < 56321 ) : FI = JY AND 16 : JY= 15- ( 
JY AND 15):TL=UL:PGKEUL,32 
2080 IF UL>1064AND(JY—1 OR JY=5 OR JY=9 
OR(K=7 ANDJ=1))THEN UL=UI_-40:G0T02120 
2090 IF UL<1904 AND(JY=2 0RJY=6 OR JY=10 
OR (K=7 AND J=0) )THENUL=UL+40:G0T02120 
2100 IF UL>1064 AND ((JY>3 AND JY<7> OR 
< K=2 AND J=1) )THEN UL=UL-1 
2110 IF' ULC1944 AND (JY>7 OR <K=2 AND J= 
O))THEN UL=UL+1 

2120 P-PEEK(UL):IFF-64 THEN UL—TL 
2130 IF F- 66 THEN E$="l=iJNE MOMIE VOUS TUE 
! ! !":FL=1:G0T02260 

2140 IF F-19 THEN E*="lsUNE SERPENT VOUS 
PIQUE! ! !":FL=1s G0T02260 
2150 IF F-65 THEN 8=6+100 

2160 IF F-67 THENG=G+INT(RND< 8 ) * 10 ) * 1000 
+10000 

2170 IF TI>7200THEN E$="»LE TEMPS EST DE 
PASSE"; GOTO 2260 

2180 IF RND ( 8 )<.2 THEN M=INT (RND(9)*60 

0)+1144: IF PEEK (MX>32 THEN 2180 

2190 POKEM,64 :POKEM+CÜ,0 

2200 POKEUL,UC:POKEUL+CO,1 : IF D>0 AMD (K 

=60 OR K= 15 OR F1016) THEN 2220 

2210 GOTO 2040 

2220 FOR E=0TÜ8: F’OKEUL+L (E) , 32: NÈXT E: D 
=D—1 

2230 5=54272:FQRL=S TO S+24:PGKEL,O:NEXT 
:POKES+5,15:PüKES+6,15:P0KES+24,15 
2240 F'OKE S+1,5: POKES, 33 : POKES+4, 129: PO 
KES+4', 128: POKEUL, UC: FQRT=0T0200O: IMEXTT 


2250 GOTO 2040 

2260 FOR T= 1T02000 : NEXT T : F'OKE 198,0: PR I 
NT "(si" : PR INT 

2270 F'RINT TAB (20-LEN (E$)72);E$ 

2280 IF FL=1 THEN 2300 

2290 F'RINT: F'RINT" VOTRE SCORE EST:"G":F'R 
INT 

2300 F 0 R N=0 T02000: NE X T N 
2310 PRINT: GOTO1900 
2320 G0T02400 
2330 GOTO 2390 

2340 F'RINT "POUSSEZ LE BOUTON POUR REC 0 MM 
ENCER;" 

2350 F'RINT "SYMBOLES: ": F'RINT: F'RINT 

2360 GETQ$:IF Q$=""THEN 2360 

2370 : F'OKE 53281,6: RETURN 

2380 DATA-41,-40,-39,-1,0,1,39,40,41 

2390 P0KE53281,0 : P0KE53280 ,• 0 

2400 F'RINT" OFM'HE N ILE" 

2410 PRINT"31333]D3" 

2420 F'RINT "EMPLOI S LE JOYSTICK OU LES CU 
RSEURS POURBOUGER; F'RINT 
2430 F'RINT "POUSSE LE BOUTON OU LA BARRE 
DEESF'ACE POUR LEAVENTURE; " : F'RINT 
2440 F'RINT"MTU AS 2 MINUTES POUR PRENDRE 
LES TRESORS" : F'RINT 
2450 PR INT "-SA = PIECE DEOR": F'RINT 
2460 F'R INT "■SC = TRESOR ": F'R I NT 
2470 F'RINT"I* = MOMIE" : F'RINT 
2480 F'RINT"ÏE = SERPENT ": F'R I NT 
2490 F'R INT "-fi- = MUR": F'RINT 
2500 F'RINT"<F'OUSSE 1 TOUCHE POUR PARTIR" 
2520 GOTO 2360 


COMMODORE 64 

UTIL DISK 

Cet utilitaire pour 1541 permet de protéger, déprotéger, 
modifier à volonté les fichiers présents sur une disquette. 
Notez qu'avant la saisie du listing, il est nécessaire d'entrer : 
POKE 44,32: POKE 32*256,0:NEW. 


100 IF PEEK(44)=32 THEN 180 

110 PRINVIsMS) VOUS N AVEZ PAS DEPLACE LE 

220 F'RINT "ET DE MANIPULER 
AMMES.." 

TOUS VOS F'RQGR 

S POINTEURS»)" 

120 F'RINT "JE RECHARGE UT I L.D ISKDATA " 

230- F'RINT"- 


130 FQRI = 1T01300: NEXT 

140 P0KE44, 32 : F'QKE32*256,0 

240 F'RINT"ISCRSR HAUT ET BASIS) DEPLACE LE 
CURSEUR" 

150 F'R INT " (=1_0AD" +CHR$ ( 34') +" UT I LD I SKDATA " 
+CHR$(34)+",8" 

242 F'RINT" 

AT ET DU" 

CHOIX DE L'ET 

160 PQKE631,19:P0KE632,13:P0KE633,ASC("R 
" ) 

244 F'RINT" 

I CAT ION": F'RINT 

TYPE EN MODIF 

170 P0KE634, ASC ( "U" ) : PÜKE635, 13: F'OKE 198, 

5 : NEW 

246 F'R INT" ISA IS)--> 

E": F'RINT 

AUTRE DISQU 

180 PLACE = 2049:TEST=0 

190 F'R I NT " (s»|i»»»»»|i»>»»»ail:UT 1 LD I SKIS)" 

248 F'RINT’MSBIS)-> 

E" : F'RINT 

SUITE DISQU 

200 F'RINT"»I(C> F'. BUREAU POWER CLUB CO 

MMODORE" 

249 F'RINT"ISMIS»-.— > 

N" : PR INT 

MÜDIFICATIO 

210 F'RINT "(BCE LOGICIEL VOUS PERMET DE TR 

250 F'RINT"ISCIS)-> 

CHARGE F’RG " 

ANSFORMER" 

260 F'RINT" 

UNIQUEMENT PO 





















270 PRINT” LES PROGRAMME 

S" 

280 F'RINT" EN BASIC." 

370 READ OCTET:IF 0CTET=-1 THEN 390 
380 F'OKE PLACE, OCTET: TEST=TEST+GCTET:PLA 
CE=PLACE+1: GOTO 370 

| | 390 IF TE 8 T= 242169 THEN 410 

400 PRINT"t=ERREUR DE DATA. .. VERIFIER S.V 
.P..": END 

410 OF'ENl, 8 , 15, " 10“ : CLOSE 1 : PÜKE43, 1 : F'OKE 

1 44,8:P0KE45,112:P0KE46,15:CLR 
420 F'RINT "(SUE SAUVE ' UT I LDI SK'" 

430 SAVE"@:UTILDISK", 8 :END 

440 DATA 27,8,10,0,158,32,50,48 

450 DATA 56,48,32,80,46,66,85,82 

460 DATA 69,65,85,32,38,32,80,67 

470 DATA 67,0,0,0,0,0,0,169 

480 DATA 68,133,251,169,8,133,252,160 

490 DATA 0,132,253,169,192,133,254,177 

500 DATA 251,145,253,136,208,249,230,252 
510 DATA 230,254,165,254,201,200,208,239 
520 DATA 76,0,192,169,0,133,96,141 
530 DATA 0,205,120,169,64,160,192,141 
540 DATA 20,3,140,21,3,169j15,133 
550 DATA 38,88,169,15,168,162,8,32 
560 DATA 186,255,169,0,32,189,255,32 
570 DATA 192,255,36,35,169,2,168,162 
580 DATA 8,32, 186-, 255, 169, 1, 162,40 
590 DATA 160,192,32,189,255,32,192,255 
600 DATA 76,119,192,198,38,240,3,76 
610 DATA 49,234,169,15,133,38,162,0 
620 DATA 189,143,194,73,64,157,40,4 
630 DATA 169,1,157,40,216,232,224,40 
640 DATA 208,238,162,0,189,143,194,72 
650 DATA 189,143,194,240,6,157,142,194 
660 DATA 232,208,245,104,157,142,194,76 
670 DATA 49,234,169,2,141,32,208,141 
680 DATA 33,208,169,1,141,134,2,32 
690 DATA 68,229,162,4,160,0,24,32 
700 DATA 240,255,162,0,169,184,32,210 
710 DATA 255,232,224,40,208,248,162,6 
720 DATA 160,2,24,32,240,255,169,218 
730 DATA 160,194,32,30,171,162,7,160 
740 DATA 2,24,32,240,255,169,255,160 
750 DATA 194,32,30,171,162,8,160,2 
760 DATA 24,32,240,255,169,36,160,195 
770 DATA 32,30,171,162,22,160,13,24 
780 DATA 32,240,255,169,73,160,195,32 
790 DATA 30,171,162,24,160,13,24,32 
800 DATA 240,255,169,93,160,195,32,30 
810 DATA 171,32,148,196,32,30,194,32 
820 DATA 199,195,24,162,9,160,0,142 
830 DATA 0,207,140,1,207,169,1,141 
840 DATA 2,207,24,174,0,207,172,1 
850 DATA 207,32,240,255,169,215,32,210 
860 DATA 255,32,228,255,240,251,201,83 
870 DATA 208,2,240,205,201,65,208,57 
380 DATA 165,96,240,3,32,179,196,120 
890 DATA 169,49,160,234,14.1,20,3,140 
900 DATA 21,3,88,32,68,229,24,162 
910 DATA 12,160,3,32,240,255,169,113 
920 DATA 160,195,32,30,171,169,15,32 
930 DATA 195,255,169,2,32,195,255,32 
940 DATA 228,255,201,32,208,249,76,0 
950 DATA 192,201,17,208,31,173,2,207 


960 DATA 197,97,240,173,238,2,207,24 
970 DATA 174,0,207,172,1,207,32,240 
980 DATA 255,169,32,32,210,255,238,0 
990 DATA 207,76,255,192,201,145,208,31 
1000 DATA 173,2,207,201,1,240,138,206 
1010 DATA 2,207,24,174,0,207,172,1 
1020 DATA 207,32,240,255,169,32,32,210 
1030 DATA 255,206,0,207,76,255,192,201 
1040 DATA 67,208,113,32,12,197,160,0 
1050 DATA 162,0,177,253,201,160,240,26 
1060 DATA 201,27,176,9,73,64,157,61 
1070 DATA 3,73,192,208,5,157,61,3 
1080 DATA 73,128,145,253,232,200,192,16 
1090 DATA 208,224,142,60,3,32,68,166 
1100 DATA 169,15,32,195,255,169,2,32 
1110 DATA 195,255,120,169,49,160,234,141 
1120 DATA 20,3,140,21,3,88,32,68 
1130 DATA 229,162,29,189,244,193,157,80 
1140 DATA 3,202,16,247,76,80,3,169 
1150 DATA 2,168,162,8,32,186,255,173 
1160 DATA 60,3,162,61,160,3,32,189 
1170 DATA 255,169,0,32,213,255,32,89 
1180 DATA 166,32,174,167,201,77,240,3 
1190 DATA 76,14,193,32,57,197,76,14 
1200 DATA 193,169,49,141,150,195,173,0 
1210 DATA 205,208,10,169,1,141,1,205 
1220 DATA 141,255,204,208,6,173,1,205 
1230 DATA 141,255,204,162,15,32,201,255 
1240 DATA 162,0,189,149,195,240,6,32 
1250 DATA 210,255,232,144,245,32,113,194 
1260 DATA 162,0,189,0,1,240,6,32 
1270 DATA 210,255,232,208,245,32,204,255 
1280 DATA 162,2,32,198,255,162,0,32 
1290 DATA 207,255,157,0,205,232,208,247 
1300 DATA 32,204,255,96,173,150,195,201 
1310 DATA 49,240,7,172,255,204,162,255 
1320 DATA 208,3,172,1,205,169,0,32 
1330 DATA 145,179,32,221,189,96,0,0 
1340 DATA 0,0,32,32,211,85,73,84 
1350 DATA 69,32,32,32,32,205,79,68 
1360 DATA 73,70,73,69,82,32,32,32 
1370 DATA 32,195,72,65,82,71,69,82 
1380 DATA 32,32,32,32,193,85,84,82 
1390 DATA 69,32,68,73,83,81,85,69 
1400 DATA 32,32,106,106,106,80,79,87 
1410 DATA 69,82,32,67,76,85,66,32 
1420 DATA 67,79,77,77,79,68,79,82 
1430 DATA 69,106,106,106,0,176,195,195 
1440 DATA 195,195,195,195,195,195,195,19 
5 

1450 DATA 195,195,195,195,195,195,195,19 
5 

1460 DATA 195,178,195,195,195,195,195,19 
5 

1470 DATA 178,195,195,195,195,195,195,19 
5 

1480 DATA 174,0,194,32,78,79,77,32 
1490 DATA 80,82,79,71,82,65,77,77 
1500 DATA 69,32,32,32,32,32,194,32 
1510 DATA 69,84,65,84,32,194,32,84 
1520 DATA 89,80,69,32,32,194,0,173 
1530 DATA 195,195,195,195j195,195,195,19 
5 

1540 DATA 195,195,195,195,195,195,195,19 
5 

1550 DATA 195,195,195,177,195,195,195,19 
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1560 DATA 
5 

1570 DATA 
1580 DATA 
1590 DATA 
1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 


195,195,177,195,195,195, 195, 19 

195,195,189,0,67,72,79,73 
88,45,45,62,32,18,67,85 
82,83,69,85,82,83,146,0 
86,65,76,73,68,45,45,62 
32,18,60,82,69,84,85,82 
78,62,146,0,80,76,65,67 
69,82,32,76,69,32,68,73 
83,81,85,69,44,60,18,69 
83,80,65,67,69,146,62,32 
69,78,83,85,73,84,69,0 
85,49,32,50,32,48,32,49 
56,0,66,45,80,32,50,32 
48,0,2,205,104,5,4,19 
16,21,18,104,165,251,24,105 
29,133,251,144,2,230,252,56 
165,253,233,3,133,253,76,225 
195,96,173,167,195,172,168,195 
133,251,132,252,169,0,133,97 
173,169,195,172,170,195,133,25 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 

9 

2000 

2010 

8 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 


DATA 132,254,165,253,24,105,3,133 
DATA 253,144,2,230,254,165,252,201 
DATA 206,240,214,160,0,177,251,72 
DATA 165,251,24,105,3,133,251,144 
DATA 2,230,252,177,251,201,160,240 
DATA 15,201,0,240,166,201,65,144 
DATA 7,201,91,176,3,24,73,64 
DATA 145,253,32,130,196,200,192,16 
DATA 208,225,230,97,165,253,24,105 
DATA 24,133,253,144,2,230,254,160 
DATA 0,104,72,42,16,14,169,60 
DATA 145,253,32,130,196,104,24,73 
DATA 192,72,16,17,106,16,7,104 
DATA 24,73,128,72,208,7,169,42 
DATA 145,253,32,130,196,165,253,24 
DATA 105,6,133,253,144,2,230,254 
DATA 104,170,160,0,189,171,195,145 
DATA 253,32,130,196,24,165,251,105 
DATA 29,133,251,144,2,230,252,24 
DATA 165,253,105,7,133,253,144,2 
DATA 230,254,76,225,195,24,165,253 
DATA 105,0,133,65,165,254,105,212 
DATA 133,66,169,1,145,65,96,173 
DATA 169,195,172,170,195,133,251,13 

DATA 252,160,0,169,32,162,2,145 
DATA 251,136,208,251,230,252,202,20 

DATA 246,165,96,208,1,96,169,0 
DATA 133,96,169,50,141,150,195,162 
DATA 15,32,201,255,162,0,189,159 
DATA 195,240,6,32,210,255,232,144 
DATA 245,32,204,255,162,2,32,201 
DATA 255,162,255,232,189,0,205,32 
DATA 210,255,224,255,208,245,32,204 
DATA 255,162,15,32,201,255,162,0 
DATA 189,149,195,240,6,32,210,255 
DATA 232,144,245,32,113,194,162,0 
DATA 189,0,1,240,6,32,210,255 
DATA 232,208,245,32,204,255,96,169 
DATA 104,160,5,133,253,132,2^4,206 
DATA 2,207,174,2,207,240,14,24 
DATA 165,253,105,40,133,253,144,2 


2170 DATA 230,254,202,208,242,24,165,253 
2180 DATA 105,3,133,253,144,2,230,254 
2190 DATA 238,2,207,96,169,0,162,16 
2200 DATA 157,60,3,157,0,96,202,208 
2210 DATA 247,32,204,255,169,1,133,96 
2220 DATA 32,12,197,160,0,177,253,201 
2230 DATA 160,240,18,201,27,176,2,73 
2240 DATA 64,153,61,3,169,32,145,253 
2250 DATA 200,192,16,208,232,169,0,153 
2260 DATA 61,3,174,0,207,160,3,24 
2270 DATA 32,240,255,162,0,134,65,32 
2280 DATA 228,255,240,251,201,13,240,15 
2290 DATA 166,65,157,0,96,32,210,255 
2300 DATA 232,134,65,224,16,208,232,169 
2310 DATA 0,166,65,157,0,96,170,173 
2320 DATA 0,96,240,17,189,0,96,157 
2330 DATA 61,3,232,224,16,208,245,232 
2340 DATA 169,0,157,61,3,160,0,185 
2350 DATA 61,3,201,0,240,17,201,65 
2360 DATA 144,6,201,91,176,2,73,64 
2370 DATA 145,253,200,192,16,208,232,165 
2380 DATA 253,24,105,24,133,253,144,2 
2390 DATA 230,254,160,0,169,32,73,128 
2400 DATA 145,253,32,130,196,208,49,32 
2410 DATA 228,255,240,251,201,13,240,72 
2420 DATA 201,17,208,243,160,0,177,253 
2430 DATA 73,128,201,60,208,8,169,42 
2440 DATA 73,128,145,253,208,18,201,42 
2450 DATA 208,8,169,32,73,128,145,253 
2460 DATA 208,6,169,60,73,128,145,253 
2470 DATA 160,0,177,253,73,128,201,32 
2480 DATA 208,6,169,128,133,53,208,191 
2490 DATA 201,60,208,6,169,192,133,53 
2500 DATA 208,181,169,0,133,53,240,175 
2510 DATA 160,0,177,253,73,128,145,253 
2520 DATA 165,253,24,105,6,133,253,144 
2530 DATA 2,230,254,160,0,177,253,73 
2540 DATA 128,145,253,32,130,196,208,61 
2550 DATA 32,228,255,240,251,201,13,240 
2560 DATA 102,201,17,208,243,160,0,177 
2570 DATA 253,201,132,208,6,169,147,145 
2580 DATA 253,208,34,201,147,208,6,169 
2590 DATA 144,145,253,208,24,201,144,208 
2600 DATA 6, 169, 149, 145, 253, 208,'14,201 
2610 DATA 149,208,6,169,146,145,253,208 
2620 DATA 4,169,132,145,253,160,0,177 
2630 DATA 253,201,132,208,6,169,0,133 
2640 DATA 54,240,181,201,147,208,6,169 
2650 DATA 1,133,54,208,171,201,144,208 
2660 DATA 6,169,2,133,54,208,161,201 
2670 DATA 149,208,6,169,3,133,54,208 
2680 DATA 151,169,4,133,54,208,145,160 
2690 DATA 0,177,253,73,128,145,253,165 
2700 DATA 53,24,101,54,141,60,3,169 
2710 DATA 2,160,205,133,251,132,252,206 
2720 DATA 2,207,174,2,207,240,13,165 
2730 DATA 251,105,32,133,251,144,2,230 
2740 DATA 252,202,208,243,238,2, 207,160 
2750 DATA 0,173,60,3,201,128,208,2 
2760 DATA 169,0,145,251,165,251,24,105 
2770 DATA 3,133,251,144,2,230,252,160 
2780 DATA 0,185,61,3,240,8,145,251 
2790 DATA 200,192,16,208,244,96,169,160 
2800 DATA 145,251 ,.200, 192, 16,208,247,96, 
-1 
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MO 5 


ASTATE 

Magicien, voleur ou clerc peu importe : vous devrez 
affronter les mêmes dangers. Monstres, dragons de toute 
sorte et créatures mythologiques font partie 
de l'univers de ce jeu de rôle. 


5 CLS = LQCRTE0,0,0 = CONSOLE,,,1>SCREEH3,3, 
0 : RTTRB1,1 » LOCRTE14,12 * X* 160 • Y=99 •• PSETC X 
, Y X 3 = FOR 1=0 TO 319STEP 3 : LïNEC X, Y >-C 1, 1 

99 X 3 ! LI NEC X, Y >-C I,0 X 3 : NEXT : PR I NT " flSTfl 
TE " SCREEN3,0,0 * PLAY " PPP " 

10 CLEAR35Q,40780,126-DEPINT A-Y=FORI=1 
TO PEEKC8241> <A=RND:NEXT: =DÏMTBLSC40 >•DI 
MAC 24,19 XPOKE8310,7 ALC$="ANSMUTERM"« AV 
AS*"AVANCER"•EMPS="EMPRUNTER"*MPA$="AGE" 
20 GOSUB20000*GOSUB50000:RESTORE30000•FO 
RT=0 TO40•READASsTBLSCT >=A$:NEXT = RESTORE 
38000 <FORT=1T08 = READ AS,A,B,CsMONSTRSCT ) 
=AS•VMOCT >=R = FMOCT >=8 = RMOCT >=C■NEXT 

100 CLS : CONSOLE,,,6 SCREEN 0,7,8•ATTRB0, 
0 ! PRINT ! PRINT : ATTRB0 1 -LAG=Q 

120 NM*1*PRINT"QUEL SERA VOTRE NOM ? "; = 
FIN=7*GOSUB40000:NAMES=MEDIUMS=IF FLAG=1 
THEN100 

125 IF NAMES*""THEN100 

128 IF LENC NAMES X7THENNAMES*" "+NflME* = G 
0T0128 

130 PR INT "QUEL EST VOTRE AGE ? ".:=FIN=Jx 
GOSUB40000«AGES=MEDIUM$ ; IF FLAG=1THEN100 
230 PRINT"QUEL EST VOTRE TAILLE <CM> ? " 

; ; FIH=2 <GOSUB40000* TAILS=MEDIUMS=IF FLAG 
=1 THEN100 

280 IF VALCTAIL$»200THEN100 

290 PR INT "QUEL EST VOTRE POIDS <KG> ? 

: FIN=2=GOSUB40000=POIDS=MEDIUMS•IF FLAG= 
1THEN100 

300 IFVALC POIDS >>200THEN100 

310 AGE=VALC AGE* >+1 PO I D=VAL.C PO I DS >/100+ 

1=TAIL=VALCTAIL$V100+1 

320 PV-AB3C33-AGE/3>+50 : POWER=PÜIDTTflILT 

2 = RES=P01DT3 ; IFAGE<=9 OP AGE >90THENPV=10 

! POWER*1 : RES=1 

322 PLAY "SI" : C0L0R7. 0 PRINT"VOI. ILEZ-V0U8 
CORRIGER VOS DONNEES ? <O^N>";■ = XS=INPUT$ 
C1X IF X$="Û"THENSCREEN0,7 : GOTO100 

324 SCREEN0,7 *CLS■PRINT = PRINT"SEREZ VOUS 

• 1=>MAGICIEN" : PRINTTABC 16 >"2=>GUERR 

IER"! PRINTTABC 16)"3*>VOLEUR" : PRINTTABC 16 
>"4=>CLERC"!GOSUB51000=PRINT = PRINT : PRINT 
"CHOISISSEZ LE CODE CORRESPONDANT* ■>" j 'X 
S=INPUT$C1>:PRINTXS PLAY"P"=CLS ; PRINT■P 
R INT : UJ=VALC X* y 

325 PRINT : PRINT"VOICI POUR VOUS UNE BOUR 
SE CONTENANT 15 PIECES ET DE LA NOURRITU 
RE POUR 6 JOURS" : PRINT•ATTRB1,1 : PRINT"TT 
TTTTTTTTTTTTTTTTTT"; PRINT :LOCRTE16,18 ! P 
RINTBOURSES>LQCATE21,18=PRINTNOURS=GOSUB 
25000 

327 CLS : IF VALCX$><=0 OR VALCXS»4 THEN 


PV=1: POWER*1 :RES=1:PEIRA=1:PUR~0!TYXH=3 
328 TYXH=6+C XS= " 1"OR X$= "4">: PEIRA-8+CX* 
="2"0RXS="3" >T2 • PIJR=1+C XS="3" > = PV=PV+RND 
T3 

330 ATTRB0,0 = PRINTCHRSC20 >•HEUR=5 « JOUR*1 
!GQSUB41500 ! G0SUB41000 ! FOR TP=1 TO 8'PSE 
TC 1,20 >CHR$C162 >: PLAY"PP":PSFTC1.20 >" " = 
PLAY"P"=NEXT * BOURSE*15 ; FLAG=0 
334 ASC1>=" VOUS ETES A IX ENTREE"■ASC2> 
=" DU VILLAGE ":RSC3>=" DE L 

A MALEDICT ION"«BOURSES*""*NOURS*"">X*1 * Y 
=20 

340 IFX<1ORX>250RY<1ORY>20THEHSCREEN0,7• 
GOSUB21500 = GOSIJB21000 = GOTO6200A 

341 IF HEUR=21RNDMANGE=0THENPOWER*CPOWER 
-1>T-CPOWER>0> ^ RES=CRES-1>T-C RE8>@ > 

342 IFHEUR=21THENGOSUB20300 ! IFINSTR'C REPS 
,"DORMIR">=0THEN GOTO22000ELSEFORTP=0TO6 
*BEEP•PLAY"P"=HEUR=CHEUR+1>T-C HEURC23> < G 
0SUB41500 : NEXT ■ GOSUB20300 = ASC 1 >= " VOI18 VO 
US REVEILLEZ..." : ASC 2 >="VOUS POUVEZ REPA 
RTIR. . . " : ASC 3 >=" " : GOSIJB20500 : fl$C 1 >=" " : AS 
C 2 )=""!GOTQ340 

345 IF ASC 1)0" "THEN350 
348 ASC 1)=NAME$+" IL VOUS RESTE : " : ASC 2 >= 
" "+STRSC5-JOUR>+" JOUR"+CHRSC83T-C 

JGUR<4> >■ASC 3 )=" "+STRSC24-HEUR >+" 

HEURE " +CHP.SC 83T-C HEUR< 23 > X IF J0UR*5 THE 
N ASC2)=" SEULEMENT !" 

350 GOSUB21500 ! GOSUB20500 : GOSUB 20300 ! IF 
HEUR=21THEN340 

352 Y=Y+CC REPS="N"ORREPS*"NORD">-C REPS*" 
S"ORREPS*"SUD">>TCRNDT3+1>■X=X+CC REPS="0 
"ORREPS="OUEST">-C REPS="E"ORREPS="EST">> 
TC RNDT3+1)iASC 1>=""=ASC 2 >=""* ASC 3 >="" 

353 IFRND<.3 THEN A=RNDT6+1= GOSUB40500 : G 
OSIJB6350Q : GOTO340 

355 IFX=15ANDY=19THEHLOCATE0,22 >PRINT"UN 
E FORCE ETRANGE VOUS FAIT PENETRER"; <LOC 
ATE0,23 * PRINT"DANS UNE MAISON MYSTERIEUS 
E GQSUB25000 ! GOSUB63500 : GOSUB5000 : 

FLAG=0<G0T0340 

360 IFC REPS*"V"OR REPS*"VOIR"DANDBOURSE> 
0THENGOSUB21500•G0SUB41000 >PSETC X,Y>CHRS 
C162 X BOURSE=BOURSE-1=EXEC40781 : G0SUB215 
00 

362 IFX=10ANDY*19ANDAUB=0THENGOSUB8000: F 
LRG*0«GOTO340 

364 IF RRMU=0ANDX*23ANDY=17THENGOSUB4800 
^ FLAG=0*GOTO340 

366 IFX=1ANDY*17 THENGOSUB7000 = FLAG=0: GO 
TO340 

370 IFY=15ANDCX=21ORX*11> THENG0SUB21580 
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=LOCATE 3,3=PRINT "VOUS VOUS ENLISEZ ... 
"'FORT=l TO 1500 : NEXT : LOCflTE 3.12 ! PRINT" 
VOUS ETES MORT ' ! '":GOTO630OO 
375 IF X*9ANDY»18 THENGOSUB21508 : L0CATË2 
.. 8 : PRIHT"UNE ETRANGE-CREATURE . . " ' FOR T= 
1TO4000 'NEXT^ LÛCATE2.10 » PRINT"SES MOINS 
VOUS SERRENT"= L0CATE2.12 ' PRINT"LA GORGE 
FORT=1TO1500'NEXT<L0CRTE2,14 = PRINT" 
VOIIS TOMBEZ MORT ! " ' GQTO63000 
377 IFC Y=18RNDX=10 )ORC Y=17ANDCX=190RX»18 
) >THENGOSUB21500 ' L0CRTE2.. 8 » PR INT "QUELLE 
DOULEUR ATROCE !"'GOSUB25000'L0CRTE2,18'P 
RI NT " LA FLECHE D ' ALGOS " ' L0CRTE2 ..12 = PR I HT 
"S'EST PLANTEE DANS VOTRE"= L0CATE2.14 = PR 
INT"OEIL DROIT!"'GOTO63000 
380 IF X=4ANDY=15THEN GOSUB21500 = L0CATE3 
,8'PRINT"LE PONT S'EFFONDRE ! !"= FORT»1T 
01500 = NEXT = LOCATE 3,12'PRINT "VOUS VOUS 
NOYEZ ..."=GOTO 83000 
382 IF Y=15THEN GOSUB1000O'GOTO2000 
385 W=CMANGE AND REPÏ="MANGER")'IF W»1 T 
HEN LOCATE 0,23=PPINT"VOUS VOULEZ ENCORE 
"REP$" ! " ' FORT» 1 TOI500 = NEXT ' LOCATE0.. 23 • 
PRÏNTCHRSC24) 

390 IF REP*»"MANGER“ANDMANGE»0 THENMRNGE 
= 1 = fl$C1 )="VOUS VOUS SENTEZ MIEUX"'G0T034 
0 

395 IFCX=19ANDY=20 )ANDCROIX=0THENGOSUB6Q 
00 = LOCATE0.22'PRINT"VOUS ETES DEVANT UNE 
MRISON ISOLEE"'GOSUB20300'IFREP*<>"EHTR 
ER"THENGOSUB83500'GOTO340ELSEGOSIIB8500 = G 
OSUB9000'FLAG=0'GOTO340 
400 IFY=20AND< X>5 AND X<9)THEHA*<1>=" 
VOUS ETES SUR L.R "'A$C2)=" RUE PRIH 
CI PALE "=A*<3)=" DU VILLAGE 

"'GOTO340 
420 GOTO340 
2000 ' 

2010 GOSUB6000'LOCATE0.22 = PRINT"DEVANT V 
OUS LA MAISON DE L'ALCHIMISTE 
2020 GOSIJB20300 = I FREP*< > " TR " +ALC5+" UR " TH 
ENGOSUB21500 = GOSUB6350O = LOCATE0 .■ 22 = PR INT 
"VOUS VOUS SENTEZ LOURD.TRES LOURD ,."=L 
OCATE0.23•PRINT"VOUS ETES TRANSFORME EN 
STATUE DE PLOMB";'GQTO63800 
2040 LOCATE0.. 24 = PRINTCHRSC 24 ) ; = GOSUB6350 
0 = EXEC40907'PLAY"PP"«EXEC40907 = PLAY"PP"< 
EXEC40907 ' GO8UB6500 ' ATTRB1. 1 ' L0CATE8.. 6 ' P 
RINTALCHÏYOUSTA* ; ' ATTRB0.0 ' L0CATE8 .• 22 = PR 
INT"DEUX TETES DANS LE FOND ..."=LOCRTE0 
.23'PRINT"EST-CE UN MIRAGE ?"'GOSUB25O00 
= GOSIIB6350R 

2850 LOCATE0.22'PRINT"NOUS NE SOMMES PAS 
UN MIRAGE DIT LE"«LOCATE0.23'PRINT"PLUS 

JEUNE_"'EXEC40781= GOSUB6350O = LOCATE® 

.22'PRINT"UNE PARTIE DE NOUS MEME EST BI 
EN JCI"'EXEC40731'GOSUB63500 
2060 LOCATE0.22 ' PR I NT" MA IS NOTRE ESSENCE 
VI TALE.CE QUE DANS">LOCATE0.23'PRINT"TA 

LANGUE SE DIT.AME EST _"<EXEC40781'G 

OSUB63500 

2070 LOCATE0.22'PRINT"PROVISOIREMENT DAN 
S UN AUTRE UNIVERS ..";'LOCATEO.23'PRINT 
"NOUS SOMMES LA POUR T'AIDER ..."'LOCATE 
6.4'PRINT"RKQULOGORASIS">EXEC40781'GOSUB 
63500'EXEC40907«EXEC40781'EXEC40907'EXEC 
40781'EXEC40907 

2080 L0CATE2.3'PRIHT"MOI YOUSTAKORI DE C 


EGRE"'L0CATE2.4'PRINT"PUT PARVENIR A"=LO 
CATE2.5'PRINT"ECHAPPER A L'EMPRISE"=LOCA 
TE2.6'PRINT"D'ABRAGEDEON." 

2090 L0CATE2.7 = PRINT" VOI! .A ECRIT SUR CF" 

'L0CATE2.8 = PRIHT"ANTHRAPURUS."= L0CATE2.9 
'PRINT"LE CHEMIN QU'IL SEMBLE">L0CATE2.1 
0 = PRINT"AVOIR EMPRUNTE POUR"'L0CATE2.11' 
PRINT"REVENIR CHEZ MON"'L0CATE2.12'PRINT 
"MAITRE CLAHGOR" 

2100 LOCATE7.16'PRINT"YOUSTAKORI"'G0SUB2 
5000'GOSUB25000'EXEC40987=EXEC40907'EXEC 

40907 

2110 L0CATE2. 4 'PR I NT " S. O . S .E.E .S. E.E. E .N 
."= L0CATE2.5 ^ PRINT"EC13 fois ).S. O .n, 0 ,O, 
»îL 0CATE2.6>PRINT"O.S.S.S.E.S.EC5 fois>" 

:L0CATE2.7 = PRINT"SC3 fois>"= EXEC40907'EX 
EC40781'EXEC40781'EXEC40781>EXEC40907'EX 
EC 40907 

2120 L0CATE2.4 = PRINT"LE TEMPS VA S'ARRET 
ER"= L0CATE2.6'PRIHT"POUR TOI."'LOCATE2.8 
'PRINT"ET SUR L'IHANIME"'L0CATE2.18 = PRIN 
T"LE LOGOS DESCENDRA"'L0CATE2.12 = PPINT"P 
OUR’ UN 1HSTANT !">L0CATE6.14'PRINT"CLANG 
OR"'GOSUB25000=GOSUB21500 
2130 GOSUB6500 ' PSETC 12.10 )GR*C 107 > ' GOS! JB 
20300'IFREP*="ECOUTERCLE"THEN L0CATE7■î8 
= PR I NT " AG. AD. AG " ' PLAY " PPPPF'PP " ' G0SUB2150 
0 

2135 L0CATE2.4'PRINT"PREPAREZ VOUS A PAR 
TIR"' L0CATE2.6 ' PRINT 11 POUR LA VIE OU LA M 
ORT."'L0CATE2.8'PRINT"COMME CLANGOR L'A 
PROMIS"= L0CATE2.10'PRINT"LE TEMPS VA S'A 
PRETER"'L0CATE2.12'PRINT"JUSQU'fl CE QUE 
LA FLEUR"= L0CATE2.14 = PRINT"SOIT ENTRE VO 
S MAINS." 

2140 LOCATEO.24 « PRINTCHR*<24 >;'GOSUB2580 

0'PLAY"PPPP"= GOSUB21500 

2500 G0SUB41000'PSETC21.14)CHR*C162 ) = LOC 

ATE0.22'PRINT"VOILA POUR LA DERNIERE FÛT 

S LA CARTE"=LOCATEO.23'PRINT"ET VOTRE PO 

SITION" ' EXEC407S1 = GOSI IB635Q0 ' IFARMI 1=0 TH 

ENPOWER=0 

2510 G0SUB41500'SCREEN0.7'G0SUB21500'FLA 
G=1'FORLOOP=0TO40'GOSUB21500'FLAG»1 
2520 GOSUB20300'X*=LEFT$CREP*.1)'flTTRBl. 
1'LOCATE11.10'PRINTX* = ATTRBO.0'PLAY"A0O4 
L24T53I"'IFX*<>LEFT$CTBL$CLOOP).1)THEN63 
000 

2530 A*VAL< RI GHT$C TBLSC LOOP >. 1 ) ) •• I FA=8 T 
HEN 2560 

2540 IF A=9 THEN GOSUB61000'G0T02560 

2550 P0KE831O.255'GOSUB4050O'P0KE8310.7' 

GOSUB63500 

2560 NEXT 

3000 ' 

3010 GOSUB21500 = BOXFC 1.1 )-C 25.15 )CHR$C 1.6 
3 ) 'BOXFC68.28)-<132.129 > = LINEC 68. 129 >-C7 
.168 ) 'LINEC 132.129)-C208.168)'LINEC 7.129 
)-<208.129 >'LINEC 10.2>-C14.2)CHR*C127 >'L 
INEC 9.3)-C15.3)CHR$C127) 

3020 LINEC11.1 )-C13.1)CHR*<127)'BOXFC19. 
5 >-C14.7)"#".0.3'COLGR0.7 = PSETC10.10)"o" 
3030 LOCATEO.22'PRIHT"APRES TANT D'EFFOR 
TS VOUS VO I LA DEVANT " = LOCATEO. 23 < PR I NT " L. 
A PORTE BLINDEE DU CHATEAU" 

3035 IF PEIRA<15ORPUR*0THENGOSUB2500O<GO 
SUB63500 = LOCATEO.22'PRINT"VOUS TOMBEZ MO 
RT! QUI SAIT POURQUOI .."'GOSUB21500'GOT 
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063600 

3040 GOSUB20300 : IFREPS- 'F0RCERP0RTE"THE 
MPUR=0 = GOTO3035 

3050 SCREEN0,7 : G0SUB6? 5 ■?•? GOSUB3500 
306© GOSUB20300 = IFREFS-' N "THEHLOCflTE0.• 2 
2 : PRINT"ENTREE PIEGEE VOUS ETES BRULE 
V IF 1 11 ■ PL B Y " PF’PP " G ~ T 163000 
3070 GO3UB3500 = GOSLE--M00 LOCATE0, 22 ; PRI 
HT"VOUS ÊTES DANS LR SALLE NOIRE !"=GOSU 
B20300 « IFREP$< >"U" T -E-- _OOPTE0.22 = PRI NT "T 
OUT S'EFFACE DEVANT O’JS ..."=EXEC40907< 
EXEO40907^ EXEC40907 G‘:UB21500=GOTO63000 
309Ô GÔSUB63500•GÔSUB57000■LOCATEO,22=PR 
INT"VOUS ETES DEVANT ABRAGEDEON"=PLAY"PP 
F'PP" : IF EPEE=0 THEN LOC°TE0.. 23 = PRINT"VOU 
S TOMBEZ MORT !" p L Q - pc "' = GQTÜ63000 
3095 LOCATÉO, 22 = ART - -'" N RAYON JAILLIT D 
E L'EPEE MAGIQUE =_- ’PPP"=GQSUB6350Q 
:GOSUB3600 : F0RT=1102500 •EYT:LOCATE0,22= 
PRINT"RBRRGEDEON E: - REDUIT EN CENDRES ! 
"= PLAY"PPPP" : LOCATE0 21 =RINT"IL EST EHF 
IN MORT ! ! !"*GOSUB25000 GOSUB21500«GOSUB 
63500 ^ GOSUB3500 

3100 GOSUB20300 = Tcr = E= ? ~"THFN! nCATEO . 2 

2 =PRINT"VOUS ÉTIEZ SI PRES DU BUT ." 

=PLRY"PPP"=LOCATE0 3? °PINT"CETTE ENTREE 

ETAIT PIEGE AVEC = ... = GOSUB25000= GO 
SUB63500 : LOCRTE0 , 22 =='I-. r 1 AVEC UNE FLECH 
E EMPOISONNEE ,.. • p ._- dpp» , GOTO63000 
3110 GOSUBS500=LOCPTE0 22 PRINT"VOUS ETE 
S DANS LÂ SALLE DU COFFRE ..."=LOCATE0,2 
3 : PRINT"LE COFFRE E3 T STE- ENTENDU INVIS 
IBLE!"= GOSUB25000 = GOS.B63500 
3120 LOCRTE0.■ 22 : PRIn t ' if -RITES VOUS ?" 
3130 FLAG=1•GOSUB2030O REP$< >"RGRDAD" 

0R< REP$= " AGADAD 11 RNDCLE=0 THENLOCATE0 .■ 22 

: PR I NT " VOUS VOUS SE k - T EZ MAL_" : PLAY "P 

PP" : LOCATE0, 23 : PP INT 1 .'OU? VOUS ECROULEZ 
AU SOL ! ! " =GOTO6300O 

3 ï 40 DEFGR$C68 >= 1 2 21 16 16,16,8,4 <DEFG 
R*<69>=128,64,88,8 3,8,16 32 : DEFGRSC 70 >= 
2,2,1,9,21,3,1,1 DEFGRf 71>=64,64,128,18 
4,200, 128,128.128 • c TT w*. 1 = C0L0R3= LOCflTË 
10,11 = PRINTGR$< 68 >G p $T 69 > = PLRY'TPPP" * LOC 
ATE10, 13 = PRINTGR* 1 ' ?0 Z**' 71 > = ATTRB0,8 = CO 
LOR0 

3150 LOCATE0,22 : PRIN™L'ASPHODELE EST A 
VOUS ! !"!GOSUB25000 GOSUB63500 = LOCRTE0,2 
2 : PRINT"LA FORCÉ DÉ CLPNGOR VOUS TRRNSPO 
RTE" ! LOCATE0,23 : PRIN' r ' ANS LES AIRS ! ! " = 
GOSUB25000=GOSUB63500=EXEC40907=EXEC4090 
7 = EXEC40907 = SCREEN0 " GOSUB21500 
3155 DEFGR$(68 >=0 0 7 8 16,39,72,144 = DEF 
GR$<69 >=0,0,224,16 8,228 18,9 = DEFGR$C70 > 
=224,123,120,39,16 3 7 0-QEFGR*C71>=7,1, 
80,228.3.16,224.0 0! !V*=GR$C 68 >+GPSC 69 >+S 
flUT*+GR*C70 >+GR$C71> 

3158 DEFGR$<72 >=0,0,0,0 31,32,64,128 = DEF 
GR$<73 >=0,0,0,0,248 4.8 1 = DEFGR$C74 >=255 
,128,64,32,31.0,0 0 = DEFGR5C75 >=255,1,2,4 
,248,0,0,0 = FERM$=GR$C72 >+GR$C73 >+SAUT$+G 
R$C 74 >+GR$C75 > 

3160 ATTRB1,1= LOCATE10,11=COLOR1= PRINTFE 
RM$ = PLAY"P"= LOCRTE10,11= PRINTQUV* = RTTRB0 
,0 = LOCATE0,22 = COLORA = PRINT"DITES VITE„„" 
i = PLAY"PP"= LOCRTE10,11= COLORi= ATTRB1,1= P 
RINTFERM5 = PLAY"PP"= LOCRTE10,11= PRINTOÜV* 

= ATTRB0,0 = LOCATE0,22 = COLOR0 = PRINT"LE MOT 


QU'IL FAUT" 

3165 PLAY"PP"= ATTRB1,1= LOCATE10,11= COLOR 
1= PPIHTFERM* = PLAY"P"= LOCATE10,11= PRINTOU 
V$ = COLOR0 = ATTRB0,0 = LOCRTE0,22 = PRINT"POUR 
SAUVER ASTATE .,"=PLAY"PP"= COLOR1= ATTRB 
1,1= LOCATE10,11= PRIHTFERMS = PLAY"P" 

3168 -LOCATE!0,11= PRINTOUV* = PLAY"P"= ATTRB 
0,0 = COLORA = ! OCATE0.22 = PRIHT"VT TE ! !"CHR$ 
<24 > = COLOR1= ATTRB1,1= LOCATE10,11= PRINTFE 
RM$ = ATTRB0,0 = COLOR0 

3170 GOSUB20300 =IF REP$<>"AKOULOGORAS13" 
.THENSCREEN0,7 = LOCATE0,22 = PRINT"MALHEUREU 
X i i " CHR *< 24 > = LOCATE0,23 = PP I NT " VOI18 AVEZ 
REDONNE LA VIE ET LA FLEUR fl"CHR*<24>.; 

= GOSUB25000 = GOSUB63500 = GOSUB53000 = G0T0S3 
000 

8 î 75 CLS = SCREEN7,6,6 = GOSUB63500 = ATTRB1,1 
= PRINT = LOCATE14,9 = PRINTALCH*YOUSTA* = ATTR 
B0,0 = L0CATE7,22 = PRIHT"NOUS TE REMERCIONS 
"NAME* " POUR "« LOCATE 1,23 = PR I NT " AVOIR 3 
filJVE ASTATE DE LA MALEDICTION" == G0SUB635 
10 = RUH 

3500 GOSUB6500 = BOXC 75,50 >-< 120, 130 > = !... I NE 
< 75.180 >-f 120 ■ 180 > ■ -8 = BOX< 78,53 >-( 117-12 
7 > = LINEC 78,127 >-<117,127 >,-3 = LINEC 75,50> 
-C 78,53 > = LINEC 120,50 >-C117,53> = LINEC 120, 
130 >-C117,127 > = LINEC 75,130>-C78,127 > 

3510 LI NEC 168,52 >-C 168, 141 > = !... I NEC 188,49 > 
-C 183.154 > = I INEC 188,49 >-C168,52 > = LINEC 16 
8,141>—C188,154 >,-8 = LINEC175,53>-C175,14 
1 > = LINE-C 168,141 > = LINEC 168,52 >-C 175-, 53 > = 
LIHE-C188,52 > = RETURH 

3600 ATTRB1,1= LOCATE12,3 = RRINTGRSC103 > = A 
TTRB0,0 = FORTP=35TO80STEP10 = LINEC 105,TP >- 
C 100, TP+20 > . 1 = LI NEC 105, TP >--C 109, TP-+-20 >, 1 
= GOSUB3620 = NEXT = PLAY"A0L24T5O4"= RETURN 
8620 FORT=1TO10 = PLAY"fl4L3T803D0"= NEXT = PE 
TIJRN 

4000 GOSIJB6000 = I 0CATE8, 2 = PR T HT " ARMURERIF 
"=G0311620300=IF RFP$<>"ENTRER" THEN GOSU 
621500=RETURN 

4010 GOSUB650O = BOXFC54,31>-C145.72 > = LOCA 
TÉS,4 = PRINT"T ARMES *"= L0CATE7,5 = PRINT"fl 
RMURE 13"= L0CATE7,6 = PRINT"BOUCL1ER 16" 

= L0CATE7,7 = PR I HT " EPEE 5 " = L.0CRTE7,3 = 

PRINT"DAGUE 3" 

4015 BOXFC 6,12>-C17,13>CHR$C127> = LINEC 16 
, 13 >-C’l 6,16 >CHR$C 127 > = LI NEC 7,13 >-< 7, 16 >C 
HR$C127> 

4O20 L0CATE7,11= ATTRB1,1= PRINTGR$C105>GR 
$C 105 >GR$C 104 >.; = ATTRBO, 1 = PRINTGR$C 103 >GR 
$C103 > = ATTRB0,0 = L0CATE21,8 = PRINTGRÆC106> 
GR$C106 >GR$C106 > 

4025 IF BOURSECS THEN LOCATEO,22 = PRINT"D 
OMMAGE VOUS NE POUVEZ RIEN ACHETER"=LOCA 
TE0,23=PRINT"C'EST TRES CHER POUR VOUS , 

.!"= GOSUB250O0 = GOSUB635O0 = GOSUB215O0 = RET 

IJRN 

4030 LOCATEO,22=PRINT"VOUS DISPOSFZ DE " 
BOURSE" PIECES"=LOCATEO,23 = PRINT"QU' ACH 
ETEZ VOUS ?"=GOSUB2O300 
4040 IÉ REP$< >"ÉËeË"XOR REP®< DAGUE"XOR 
REP$<>"RIEN" THEN4030 
4045 IF REPî="RIEN" THENGOSUB 63500=GOSU 
B2150O=RETURN 
4047 GOSUB635Q0 

4050 IÉRÉP$="EPEE"AND BOURSE>=5THEN POWE 
R=P0WER+5 = B0URSE=B0URSE-5 = LOCATEO.22 = PPT 
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HT"OK, MAIS SAVEZ VOUS VOUS EH SERVIR ?" 
) ■ ATTRBO,1= LOCATE13,11 : PRINT" " = ATTRBO,0 
•• GOSUB25000 = G0SUB21500= LOCATE0,22 = PR IH TC 
HR$< 24 : ARMU= 1 ! RETIJRN 

4060 IF BOURSE>=3 THEH P0MER=P0WER+3=BOU 
RSE=B0URSE-3 sLOCATE0,22•PRIHT"CROYEZ VCHI 
S QUE LA DAGUE SUFFIRA : L0.CATE21 ,8 = PR 
IHT" " = GUSIIR25000 : GOSI JB? 1500 = l CCRTFCi, ?? : 
PRIHTCHR*<24>;=ARMU=1 
4070 RETURH 

5000 GOSJ JB21500 = I OCATE4 ■ ? = PR T HT " 9 T VOTPF 
TEMERITE" = L0CATE4,4 PRIHT"VERS LA FLEU 
R VOUS"sL0CATE4 ,6 = PRINT"AMENE , SACHEZ Q 
UE" ! L0CATE4, 8 = PRINT"LA RIVIERE N' EST" = 
L0CATE4,10 = PRINT"PEUT ETRE FRANCHIE"=LOC 
ATE4,12 = PRIHT"QUE PAR LE CHEMIN" 

5010 L0CATE4,14 = PRINT"QIJI PASSE DEVANT 
" = L0CATE4,16 ; PRINT "L•' ARMURERIE. " ■ LOCAT 
ES,18 = PRINT"CLAHGOR" 

5020 EXEC40907»LOCATE0,22 « PRINT"REGARDEZ 
! SUR LE MUR,EST-CE UH MESSAGE?"; ! LOCATE 
0,23=PRINT"DOMMAGE QU'IL SOIT A MOITIE E 
FFACE = GOSUB6350O < EXEC40781 = GOSI IB21 

500 = RETIJRN 

6000 FLAG=1 = GOSUB21500 = BOXF< 1,1 )-< 25,15 > 
PAR$(! 163 ’) 

6005 BOXF< 68 , 28 >-< 132, 1 2.9 >, -8 = BOX< 63,2.8 > 
-<132,129) = BOX< 68,28 )-< 132,124 ) = BOX< 70,3 
0>-< 130,120) = PSET<9,9)", " = BOXF< 85,40 >-< 1 . 
15,56 > = LINE<68,129 >-< 7,168) = LINE<132,129 
)-< 208,168 > = BOX< 83, 38 )-< 117,58 ) = LIHE< 7, 1 
29 )-<208,129) = RETURN 

6500 G0SUB21500 = BQX<44,24)-<152-130>: ! IH 
E< 44,130)-< 7,168 ) = LIME<152,130>-< 208,168 
)*LINE< 44,24>-<7,7) = LINEC 152,24>-<208,7) 

= RETURH 

6510 BOX< 44,24 >-< 152,130) = LIHE< 44, 130)-< 
7,168 ) = LINE<152,130>-<208,168) = L!NE<44,2 

4 >-< 7,7 ) = LINE<152,24 >-<208,7 > = RETURN 
7000 IF COLLIER=l THEH RETURN ELSEGGSUB 6 
000 = LOCATE0,22 = PRINT"VOUS ETES DEVANT UH 
E PORTE"=GOSUB20300=IF REPSK>"ENTRER" TH 
ENGOSUB63500 = GOSUB21500 = RETURH 

7010 GOSUB6500 = ATTRB1,0 = LOCATE12,18 = PRIN 
TGR$<108 > s =ATTRBO,0 = LQCATE0,22 = PRIHT"VOU 

5 ETES DANS UNE GRANDE PIECE ...";=LOCAT 
E0,23=PRINT"SUR LE SOL VOUS VOYEZ UH BEA 
U COLLIER ! " .= 

7015 ATTRB1,1= L0CATE9,16 = PRINTGR$<111 >; = 
ATTRB0,0 = GOSUB20300 = IF REP$== " PPFNDPEPFCI 
PIENT " ORREP$== " PRENDREVASE " THEH = LOCATE0,2 
2=PRINT"TOUT DEVIENT NOIR....C'EST EST U 
N OBJET"=LOCATE0,23=PRINT"ENCHANTE PAR L 
A FORCE D' ABRAGEDEON ! !"=GOTO63000 
7020 IF REP$< >"PRENDRECOLLIER" THEH GOSIJ 
B 63500 = G0SUB21500 = RETURH 
7030 LOCATE0,22 = PRIHT"CE COLLIER VOUS AP 
PARTIENT MAINTENANT ."; «LOCATE0,23 = PRINT 
"ESPERONS QU'IL VOUS PORTERA CHANCE . . . ■! 
"= COLL I ER= 1= ATTRB1,0 = LOCATE 12,18 = PR I HT " 

= ATTRBO, 0 

704O GQSUB25000 = LOCATE0,22 = PRIHTCHP$< 24> 
> = LQCATEO, 23 = PRINTCHR$< 24 >.; = RETURH 
8000 GOSI JB6000 = L0CATE9,2 = PR I HT " AUBERGE " ; 

= PLAY"PPPPP"= LOCATE0,22 = PRIHT"LA PORTE S 
' OUVRE ! " = BOXF< 72,32 >-< 128,118 >, -8 = !... I NE 
<120,38 )-<120,116 > = LINE-<130,120 ) = LINE<1 
20,38 >-< 130,30 > = F0PT==44 TO 50 = LI NE< 123, T 


>-<127,T-2) = NEXT 

8002 LINE< 70,120 >-< 80,110 > = LINE-<80•30> = 

LINE< 11,9 >-<14,9 >CHR$< 127 > = LIN EX 12,9 >-< 1 
2,11)CHR$<127 > = PSET<12,8 >GR$<110 > = LINE< 8 
0,85 >-< 120,85) = BOX< 117,50 >-< 129,70 > 

8004 GOSUB2030O = IF PEP$X>AVA$THEHGOSIIB60 
05 = L0CATE9,2 = PRINT"AUBERGE"= LOCATE0 ,22 = P 
RINT"LA PORTE SE FERME !"=PLAV'PPPPPP"=G 
OSUB63500 = RETURN 

8005 LÔCÂTE0, 22 = PR I HTCHR$< 24 > .: = GOSUB65O0 
= LINE<6,12 >-<14,12>CHR$<127 > 

8010 LINE<7,13 >-< 7,16>CHR$<127 > = LINE<13, 

13 >-< 13,16 )CHR*< 127 > = LI HE< 17,9 >-< 17, 16 >C 
HR$<127 > = LINE<17,14>-<15,14 >CHR$<127 > = LI 
NE-<15,16 >CHR$<127) 

8020 BOX<77 , 43 >-< 121,87 > = BOX<79 ,45 >-< 11 9 
, 35 > = PSET< 1 2 .8 > " / " : BOXF< 99.4P! :<-( JAI, A5, : 

FOR1=47 TO 83 STEP2 = LINE< 79/1>-<119,î > = H 
EXT 

8030 PSET<8,11>GR$<110 > = PSET<13,11>GR$<1 
09 > = LOCATE0,22 = PRIHT"VOUS ETES DANS L'AU 
BERGE DU VILLAGE"= LOCATEO,23 = PRINT"ELLE 
PARAIT VIDE.."= FORT=l TO2000 = NEXT = LOCATE 

0,22 = PRINT"MAIS..NON,QUELQU'UN ..PARLE.. 

04 } ; 

8040 ^LOCATEO’. 23 = PR IHT "C'EST UNE VOIX DE 
FEMME. . " = GOSIJB20800 = IF REP$< >"ECOUTEPFEM 
ME " THEN GOSUB63500 = GOSI !B21500 = PFTIIRH 
8050 LOCATE0,22 = PRINT"ELLE DIT = ALLEZ A 
LA MAISON QUI SE";= LOCATEO,23 = PRIHT"TRO 
IJVE APRES LA RIVIERE ...",;= GOSUB3500O 
8060 G08UB 63500 = Al IB= 1 = LOCATEO. 2? = PR T HT " 

L' AUBERGE EST REPUTEE DANS LA REGION" =1. I ; 
OCATEO, 23 = PR I NT " POUR SON HYDROMEL..." .1 ; 

8070 GOSUB20300 = IFREP3K >"BOIREHYDROMEL"T 
HENGOSUB63500 = LOCATEO,22 = PRIHT"DOMMAGE „ 

..! CE BREUVAGE EST FAMEUX !"=F0RT=1T0250 I 
0 = NEXT = GOSUB63500 = RETURN ELSEDRIHK=1= PV= ' 

PV+150 = LOCATE 13,11 = PR I HTGR$< 113 >= BOURS ! 
E=< BOURSE-1 >*-< BOURSE >0 > = GOSI IR25000 : GOSI l 
B6350O = RETURN ; 

9000 L0CATE6,13 = PRINTGR$<114 >GR*<115 > = LO 1 ! ( 
CATE6,14 = PRINTGR$<116 )GR*<117> = L0CATE6,1 
5 = PRINTGR$< 118>GR$< 119) = L0CATE6,16 = PRIHT il ; 
GRS*120 >GR$<121> = L0CATE6,17=PRINTGRSX122 
>GR*<123 > = L0CATE6,18 = PRIHTGR$<124 >GR$<12 ; 

5>=LOCATEO,22=PRIHT"DEVANT VOUS UN CLERC : ; 

"CHR$< 24 >.; 

9010 ATTRB1,1=L0CATE12, 6 =PRINT"+";=ATTRB I f 
0,0 = GOSUB20300= IFREP*=EMP$+"CROIX"OR 11 . 1 = L < 

4 THEN ATTRB 1,1 = LOCATE 12 ,6 = PR IHT" " = ATT R ( 

B0,0 = GOSIJB250O0 = CROI X= 1 = PUR= 1 = GOSI IR63500 < 

= RETURN ELSEGOSUB6350O = PFTI ipN ; 

10000 ' : 

1OO î Ô IFBOURSE>12THEN10150 

10020 FLAG=1= RX=14 = RY=18 = G0SUB21500 = BOXF 11 < 
<1,2>-<25,19>" ",4,12=P8ET<RX,RY)CHP$<16 1 ; 

2 > =IF TYXHX5 THEHP0KE8310,255 ‘ 

10025 COLORO,7=LOCATEO,22=PPINT"VOUS ETE ; 

5 DANS LA RIVIERE" =GO8IJB25000 = LOCATEO,22 ! : 

=PRINT"L'EAU MONTE JUSQU' A VOTRE POITPI , ! ; 
NE"= GOSUB20300 =IF REP*<>"N"+MPA*+"R" THE , | 

NLOCATE0,22 = PR I NTCHR$< 24 > .= = LOCATEO, 24 = PR t. 
I NTCHR$< 24 > i = SCREENO, 7 = GOTO 101.50 ; 

10O28 LOCATEO,22 = PRIHTCHR$< 24 >;= LOCATEO, : 

24 = PR I NTCHR$< 24 >.: = C0L0R4, 12 

1003O I$=INKEY$ =IF ï$=""THEH 10100 I : 

1004O R 1 X=RX+<I$=CHR *<8 >)-<I*»CHR$<9 >> = R î 
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1Y*RY+<I*=CHR*<11> > «PSETCRX,RY>" “=PSET< 
R1X,R1 'Y>GR* < 32P8ET<R1X,R1Y >GR*< 33 >, 0 = F 
HPTP= 1 TO 250 ^ NEXT= F'SETC R 1 X, R1Y >GR*< 32 >, 
0 : RX=R1X=RY=R1Y 

10050 IF RX>17 OR RX<11 THEN 10140 
10100 XX=RND#24+1 * YY=RND* 12+TYXH = PSET< XX 
,YY^GP$f 31 Y. 1 ; COLORO : Pl_RY"npR 20 ! 3T3SI#" = 
IF XX=RX AND YY=RY THEN GOTO10140 
10110 IF RY==3 THEN PSETCRX,RY>" "=PSETCP 
X, 1 >CHR$< 162 >, 0.7 = l.OCPTE0,23 = PR I NT " OUF ! 
VOUS ETES SUR LA RIVE GAUCHE."=FOR TP=1 
TO 1500 = NEXT * LOCATEO, 23 = PR I NTCHRSC 24 >: G 
0SUB21500 :SCREEN0,7,8=1FX=22 THEN P0KE83 
10.7 = RÈTIIRN ELSE GOSI JB21000 = GOTO63000 
10120 IF SCREEN(RX-1,RY><>32 OR SCREENCR 
X+l’. R Y X >32 OR SCREENC RX, RY-1 X >32 OR SC 
REEN<RX-1,RY-1><>32 OR SCREENC RX+1,RY-1> 
032 THEN 10140 
10130 GOTO10030 

10140 PSETC RX . RY >G C '$'’ 30 = LOCATEO, 23 = PRIN 
T "DEVORE PAR LES GLQUKS MON PAUVRE !!".:= S 
CRËEN0,7,8 = GOTO63000 

10150’ G0SIJB2150Ô = LOCATEO, 23 = PR T HT " VOUS V 
DUS -NOYEZ . . " ■ PSET< 14 18 V. " = LOCATE12, 1 
7 = PRINT"ICI i":GÔTOF3000 
20000 '*LM 

20010 FOR 2=40801 TO 40842 = PERD X* = POKF 
Z, VAL< "&H"+X$ > = NEXT 

20015 F0RZ=40781 TO4079S = READXS = PQKEZ . VAL. 
'< "£H"+X$> = NEXT = RETIJRN 

20020 DATA 86,A7,C0,SA,O1,87,A7,CO,C6,28 
, 34,04,8E,18,80,63,80.SC,1C,CO,25,F9»CC, 
27.10.83.0,1,26•FB,35,4■5A•26.E7,39 
2004O DATAB 6 ,A7,CO, 8 A,01,B7,A7,CO, 8 E,O 1 , 
32,C6,19,30,0F,A6.34 43 97 . 99 , 99 , 0 g. 49,9 
ï,0,26, FB,5A,8C,1A,31 22,06,C1,0,26,EA,2 
0.. E4,39 

20050 DATAB 6 .■ A7, CO, 8 A . 01,87, A7, CO, 8 E, 09, 
E8,4F,30,88,23,63,30.4C.3C.0F,AF,22,06,8 
1.05.26,F4.20.EE.39 

20060 DATAB6,A7,CO,8A,01,B7,A7,CO,86,03, 
SE.. 02.. 71, C 6 .> 17,30,88 11.68,80,5fl, 8 C, 18, F 
ï,22,06,Cî,0,26,F4,20 ED,4A,26,E7,39 
20070 DATA86,30,4A.8E A, 0 ,30.83.1,8C,27. 
10,26,F8,4D,26,F1,39 
20300 REP$="" 

20305 IF FLAG=1 OR HEUR=21THEN GOTO20320 
20310 HEUR=HEUR+1= JOUR-JOUP-C HEUR=5 > = MAN 
GE=< MANGE 0R-< HEUR=5 > )XOR-< HEUR==5 > = GOSUB 
41500=IF HEUR“21 THENSCREEN0,7 = G0SUB2150 
0 = GOSUB40200 = RETURN ELSE IF HEUR=5 THEN 
SCREENO,7 = GO8UB21500 = GOSUB40300 = RETURN 
20320 IF J0UR=6 THEN GOSUB53000=LOCATEO, 
23=PRINT"MAITRE DE L'ASTATE POUR L'ETERN 
ITE" = GOSUB40200 = GOSUB250O0 = GOSU84O2O0 = GO 
SUB250O0 = GOTO63O0O 

20331 PRIHTCHR$< 20 X; = LOCATEO, 24 = PRINT "== 
>"CHRf< 24 > ; 

20332 FOR T=1T037 

20333 PR INT GR$<26); 

20335 I$==INKEY$ = IF 1$="" THEN20335 
20340 IF I $==CHR*< 13 VTHENPR INTCHRSK 8 >CHR$ 
/32 >:= GOTO2O402 

20350 IF T=1AND I$=CHR3K8>THEN203O5 
20360 IF I$==CHR$( 8 )THEN T=T-2 = PRINTI$" " 
I$I$; = REP$==LEFT$< REP$, LEN< REP$ >-l > = GOTO 
20400 

2037O IF<I$<CHR$<65 >ORI$>CHR$C90 >)ANDI*< 


>" "THEN REP$=""= GOTO20422 
20380 PRINTCHR$C8 > î $; 

20390 REP$==REP$+I$ 

2040O NEXT 

20402 I$==REP$ = REP$==" " = FOR T==l TO LENCIS) 
28405 IF MID*<I*,T,1>=" " THEN20420 
20410 REP$=REP$+MID$CI$,T,1> 

20420 NEXT 

20422 IF REP$="" THEN GOSUB63500 = LOCATEO 
,22=PRINT"IL FAUT INSCRIRE LX ACTION A F 
AIRE ET 1 " =LOCATEO,23 = PRINT"NON PAS N'IMPO 
RTE QUOI. OK ?" = F0RTP==1 TO 4500 = NEXT = GOSU 
B63500 = GOTO2030O 

20424 IF ASCCREP*»90 OR ASC<REP*><65 TH 
EN REP$=""= G0T020422 

20425 RETURN 

20500 BOX<1,1>-<25,20>GR*<112> 

20510 LC=7 = FOR 1 = 1 TO 3 = LOCATE 2,LC = PRIN 
TA$(I> = LC=LC+2 = NEXT = FOR TP=1 T0700 = NEXT = 
GOSUB2150O = RETURN 

2 ï 000 ' 

21010 ATTRB0 ,0 = LOCATEO, 22 = PR I NT " !... A FOUDR 
E S'ABAT SUR. VOUS ! 1 !"= EXEC 408O1=POKE 
40857,32 = POKE 40358,5 
21015 FORT=1T035-CDAY=0> = EXEC40837 = NEXT = 
POKE 40857, 134 = POKE40858,70 = I. OC A TFA , 99 : P 
RINTCHR*<24>;=RETURN 
21500 ' 

21510 POKE40854, ?.-H4F = EXEC40837 = POKE40854 
,&H43 = RETURN 

220O0 GOSUB63500 = LOCATEO,22 = PRINT"NE SAV 
TEZ-VniJS PAS QUE I -‘ÔN NE SE" = LOCATEO,23 = 

PRINT"PROMENE PAS IMPUNEMENT LA NUIT . 

" = GQSIJB25000 = GOSI.JB63500 = LOCATEO, 22 = PAINT 
"DANS LE ROYAUME D'ÂBRAGEDEON !"= LOCATE0 
. 23 

22O10 PRINT"MAINTENANT,SUBISSEZ SA MALED 

I CT ION .. . " = GOSUB250OO = J0UR==6 = GOTO 20320 

25000 FARTR=1 TO3500=NEXT=RETURN 

30000 DATA N,N,N,0,01,0,0,0,N7,0,N,NB,N5 

. E ■ E . E, E ■ E . N, 09,05,0,0, 06,0,0,0,0,02,0,0 

.0,35,0,05,05,H,0,0,H3,N4 

38000 DATAUN VAMPIRE,18,9,4,UH TROLL,10, 

8,3,UN DRAGON BLANC,31,10,6,UN DRAGON HO 

IR.30/10.5,UN BAL.ROG,9,9,2,UNE MEDUSE, 15 

,5,3,UN PHANTOME,17,5,2,UN DEMON,16,9,4 

40000 MEDIUMS®""= FOR T=0 TO FIN 

40010 A$®INKÈYS=IF A$=""THEN 40010 ELSE 

IF A*=CHR$<13 >THEN 40040 

40O15 IF NM* 1 THEN 40020 ELSE ÏFASC(A$»5 

70RASCC. A* K48THEH FLAG=1 = RETURN 

40020 MEDIUMS*MEDIUMS+AS 

40025 IF A$<*CHR*<32> THEN FLflG*l=RETURN 

40030 PR INT A$.; = NEXT 

40040 PRINT = PRINT 

40050 NM==0 = FLAG=0 = RETURN 

40200 GOSUB41500 = EXEC40837 = RETURN 

40300 GOSI 1841500 = SCREEN0,7 = RETURN 

40500 ' 

40504 VMO*VMO< A > = TERA$=F I G$< Fl > = G0SUB4160 
0 = LOCATEO,22 = PRINTMONSTRSCA)" ! !"CHRS<24 
> FXEC408O1 

40505 IF RES<=OTHENRES=1 

40506 IFLEFT$<MONSTRStA),3>="UNE"THEN IF 
COLLIER=0THEN LOCATEO,22 = PRINT"VOUS ETES 

PETRIFIE ! ! "CHRS':: 24 = GOTO63000 

40508 IFLEFTS<M0NSTRS<fl),4>*"UN V'THEN I 
FCROIX=0 THEN LOCATEO,22=PRINT"VOUS ETES 
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VAMP IRISE ! ! " ÇHR$C 24 >.: = GOTO63O00 
40510 LOCRTE0,22 = PRINTCHR*C24 >; »BOXC229, 

21 V< 249.40 > ^ BOXC 269.21. >-C 289,40 > : PSETC 2 
29,21>,-8 1 PSETC249,40 >,-8 : PSETC269,21 >,- 
S ■■ PSETC 269 ,40 >, -8 ' LI NEC 290 ,22 >-C 299 ,39 > < 
LINEC 250,22 >-< 250,39 > = PSETC 229,21>, -8 = PS 
ETC 229.40 >, -R 

40513 RTT RB 1, 1 : T=20 FOR 11 = 1 T075STEP4 « LÜC 
RTE29,4 * Z1 = INTCRND*6+1>* PRINTGR*C 21XLOC 
RTE34,4 :22=1 NTC RND*6+1 > •• PRINTGR*C 22 > ' BEE 
p:G0SIIR40519:T=T+II :NEXT:GOTO40520 
405î9 FORTP=l TO T : NEXT■RETURN 
40520 RTTRB0,0=GOSUB40950 
40525 flTTRB 1, 1 1 FOR11 = 1 TO ? • L.ÜCRTE29,4 1 Z 
1=1NTCRNDTTYXH+1 > = PRINTGR$C 21>•L0CRTE34, 
4 ^ 22=1NTC RNDTTYXH+1> ' PRÏNTGR$C22 ><BEER = B 
EEP : FORTP=1T03 : NEXT 

40530 I = I NKEY$ = IFI $= 11 " THENRTTRB0,0 > LOC 
RTE0,22 ^FRRP=C PV+POWERV3+C 21+22 V2■PRIN 
T"VOUS FRRPPE2 RVEC FORCE "FRRP : EXEC4080 
1= GOSUB40900:IFVMO<=0THENLOCRTE0,22 = PRIN 
T "MONSTRE MORT ! " CHR$C 24 > : PLAY 11 PP " • PE I RR= 
PEIPR+1 1 BOXFC 28,2 >-C36,6 >" "=RTTRBO,0•RE 
TURHELSE40518 

40532 ÏFÏ$<=CHR$C32>THEN4054Q 

40535 IFI$="F"THENPEIRR=PEIRR-1=RTTRBO,0 

= BOXFC 28,2 >-C36.6 >" " :RETURN 

40538 IFI $< > ""THEN4054O 

40540 NEXT^RTTRBO,O = PLAY"DODO":LOCRTEO,2 

2 » PR I NT " TROP TARD " NRME* " ! 11 CHR*C 24 > -, ■ E 

XEC40801 - LOCRTEO, 22 1 PRINTCHRSC 24 X = G0T04 

0518 

40900 IF FRRP<=RMOCR>THEH LOCRTEO,22 = PRI 
NT"VOUS L'AVEZ RRTE !"CHR$C24 X = PLRY"P" 
ELSE VMO=VMO-FRAP/RMOCR ? *LOCRTEO,22 >PRIH 
T "VOUS L. ' RVE2 TOUCHE ! "CHR$C 24 X = PLAY"PP 
" = L0CRTE19,13 = VMO=VMO*-CVM0>=0 >*PRIHTVMO 
40905 RETURN 

40950 FRRP“C VMO+FMOC R > V3+C 21 +22 V2 : GOSU 
B417O0 

40960 IF FPRP<=RES THEN LOCRTEO.22 : PRINT 
"IL VOUS R MANQUE ..."CHR$C24X=PLRY"PP 
":RETURN 

40970 PV=PV-FRAP/-RE8 : G0SUB41500 ■ LOCRTEO, 

22 = PR INT" IL VOUS R TOUCHE 1 " CHP$C 24> i = P!, 
A Y "P" 

40980 IF PV<=0 THEN PV=0=GOSUB415O0= LOC 
ATE0,22 : PRIHT"VOUS ETFS MORT i i"CHRSC 24 > 
! : PLAY"PP" : GOTO630O0 
40990 RETURN 
41000 ' 

41010 BOXC 7,7 >-< 208,168 > : BOXC 5,5 >~C 210.1. 

70 > 

4102O LGCATE2,2 = PRINTCHRT*-.: « L0CATE18, 1 * C 
0L0R2,7•PRINTRRB$flRB$RRB$flRB$<L0CATE19,2 
:PRINTRRB$RRB* *L0CRTE28,3 : PRINTRRB$RRB$ 
41030 FOR1=6 TO 12 ! LOCRTE1,I ! FORJ=1 TO 1 
0 *C0L0R2,7 : PRINTRRB$; «NEXTJ,I *LOCRTE11,1 
l'PRINTRRBÜ" "RRB$RRB$ 

41040 L0CRTE5,5 : PRINTRRB*RRB*" "RRB$RRB$ 
»LOCRTE11,6:PRINTRRB* : L0CRTE3,13 :PRINTAR 
B$" "ARB$ARB$ : L0CRTE2,14=PRINTRRB*AR 

B$ .i ! COLORO, 7 : PR I NT " " MR IS1 $ 

41050 LOCRTE1,17 : PRINTMAIS2*MAIS2*MAIS2$ 
MRI82*:L0CATE4,19 : PRINTMRIS1*" "MRIS1$" 
"MRÏSl*" "MR132$ 

41060 L0CRTE9, 18 : PRINTRIJB* : LOCATE16 ■ 9 : PR 
INTRUIN*:L0CRTE18,10:PRINTGRïC23X :COLOR 


2,7 :PRIHTRRB$RRB$" "RRB$" "RRB$ 

41070 L0CRTE21,8 = PRINTRRB$ARB$RRB$:LOCAT 
El3,19 :PRINTRRB* : L0CRTE24,20:PRINTRRB* : L 
OCRTE14,16 : PRINTRRB*RRB$" "RRB$ 

41080 LINEC 1,15 >-C25,15 >FLE$ ,4 : COLORO : LO 
CRTE4,15 :PRÏNTCHR*C127):C0L0R2,7 
41090 L0CRTE9,1 :PRINTRRB*ARB*RRB*RB*RRB* 
RRB*:COLORO,7 = L0CRTE22,17 = PRIHT" "MRIS2* 
.i : LOCRTE 17,20 : PRINT" "MRISIS" " ' LOCRT 
E20,14:C0L0R2,7 : PRINTRRB*;=COLORO,7 = PRIN 
T" "MRIS2* 

411O0 LOCRTE12,3 : PRINTMRIS2* : LOCRTE18,17 
: PRINTHOUS*MRIS1$ :LOCRTE16,13'PRINTHOUS* 
:RETURN 

415O0 L0CRTE27,13 <PRINT"RN 1000":L0CRTE2 
7,10 : PRIHT"MOIS DE NYX":L0CRTE27,11>PRIH 
T"JOUR ="JOUR :L0CRTE27,12 = PRINT"HEURE®"H 
EUR :RTTRB1,1 :VRGR=68+4*CUJ-1>:L0CATE30,7 
'PRINTGR*CVRGR)+GR*CVRGR+1HSRUT$+GR$CVR 
GR+2 )+GR$CVRGR+3 ) :RTTRBO,0 
41510 L0CRTE27,16 « PRIHT"P.V. ="PV : LOCRTE 
27,17 : PRINT"FOR, ="POWER :L0CRTE27,18 : PRI 
NT"RES. ="RES = BOXC 215,7 >-C304,163>'BOXC 2 
13,5 >-<306,170 >:RETURN 
41600 ' 

416Ô5 GO8UB21500 

41610 LOCRTE11,9=flTTRB1,1 ; PRIHTTERfl* : GOS 
UB41700 :RTTRBO,0 *L0CRTE5,13 = PRINT"POINTS 
DE VIE="VMOC fl : RETURN 
41700 FORJ=1 TO 30 : EXEC40877 ; PLRY"R39L1T 
2901LRR0L2404T5":NEXT:RETURN 
50000 •' 

50010 DEFGR*C0 >=12,12,63,127,255,32,32,6 

3 :DEFGR$C7 >=0,0,252.254,255,4,4,254 : MRIS 
1$=GR$C 0 >+GR$C 7 

50020 DEFGR*C3 >=31,63,103,255,68,68,68,1 
27 :DEFGP$C9 >=252.254.255.255,2,2.2.254 :M 
RIS2$=GR$C 8 >+GR$C 9 > 

50O30 DEFGR$C 10>=1,3,7,15,31,56, 112., 22 : D 
EFGR$C11>=128.192■224.240.248,28.14.104 : 
DEFGR$C12>=22,16,16,19,18,18,18,31«DEFGR 
$C13 >=104,8,8,200,72,72,72,248 :AUB*=GR$C 
10 >+GR*C11>+CHR*C8 >+CHR*C8>+CHR*C10 >+GR* 
C12 >+GR$C13> 

50040 DEFGR*C14 >=56,126.110.126,60,24.24 

,24 :RRB$=GR$C14 > 

50050 DEFGR*C15 >=30,30,31,63,62,60,60,25 
2'DEFGR*C16 >=120,120,184,252,124,60,60,6 
O'DEFGR*C17 >=255,255,243,225,225,225.255 
,255 

50O60 DEFGR*C18>=255,255,207,135,135,135 
,255.255 :DEFGR*C19 >=255,252,247,247.247. 

247.247.255 :DEFGR$C20 >=255,63,31,31,31,3 

1.31.255 

50070 CHAT*=GR*C15 >+GR$C16 >+CHR$C8>+CHR$ 
C 8 >+CHR$<' 10 >+GP$C 17 >+GR*C 18 >+CHR$C 8 >+CHR 
$C 8 >+CHR$C10 >+GR*C19 >+GR$C20 > 

50090 DEFGR* 1 ' 21 >=192,192.224 . ?4R ,136,136 
,136,142:DEFGR$C22 >=1,51,127,127,35,35,3 
5,35:DEFGR$C23 >=255,255,255,252,252,252, 

252.255 •. DEFGR*C 24 >=255,255.255, 60.60,62, 

63.255 

50100 RIJIN$=GR*C 21 >+GR$C 22 >+CHR*C 8 >+CHR* 
<- Q >+CHR$f 10 >+GR$C 23 >+GR$C 24 > 

50110 DEFGR*C25 >=Q,231,153,0,28,8,183,12 

4 :FLE$=GR$C25 > 

50130 DEFGRSCt >=0.0.0.16,0,0,0.0:DFFGR5C 
2>=128,0,0,0,0,0,2,0:DEFGR$C3 >=128,0,0,1 










6,0,@,2,0 = DEFGR$< 4 >= 130,0,0,0,0,0,130,0 
50140 DÊFGR$< 5>=130,0,0,16.0,0,130,0 : DEF 
GR$< 6 >=130,0,0,130,0,0,130, 0 
50150 DEFGR$<26>=0,126,126,126,126,126,1 
26,0 

50160 DEFGR$<2?>=12,12-63,127,255,64,95, 
35•DEFGR$<28 >=0,0,248,252,255,2,2,2=DEFG 
R $<29 >=95,85,85,85,95,64,64,ï27=DEFGR*<3 
0 >=122,74,74,î 06.74 74.74,254 

50179 HQIJS$=GR$<27 >+GR$< 28 >+CHR$<8 >+CHR$ 

< 3 >+CHR$< 10 >+GR$< 29 >+GR$< 30 > 

50180 DEFGR$<31>=0,60 66,12?,189,66,66,0 
50190 DEFGR$<32 >=0,56 1 36 ,146,124,16,108 
, 130 

50200 DEFGR*<33 >=56 56 16,56,84,84,16,56 
50230 DEFGR$< 34 "'=28.28 5 60,90, 89,40, 204 
58240 DEFGR$<35 >=255 255,96,96,255,255,6 
, 6 

50245 3FlUT$=CHR$< 8 >+CHR$< 8 >+CHR$< 8 >+CHR$ 
<8>+CHR$< 10 > 

50250 DEFGR$<36>=l.3.4.4.8.16,32,68*DEFG 
R*<37 >=248,252,14-207 207,7,7,7 = DEFGR*<3 
8 >= 138 .'147,96,0,3.4. '- 1 0 = DEFGP$< 39 >=3, 131. 
,67,67,130,2,194 60■FIG*<2>=GR$<36 >+GR$< 
37 >+SRUT$+GR$< 38 >+GR$< 39 > 

50260 DEFGP$< 40>=64 64 33,18,12,24,48.98 
DEFGR$< 41 >= 1,1,194 36 24,12,6,35 = PEFGR* 
<42>=96,96,57,30 12,4 3 1 : DEFGR$<43>=131 
,3,206,60,24,16,224 192= FIG$< 8>=GR$<40 >+ 
GR$<41>+SRUT$+GR$<42 +GR$<43 > 

50273 DEFGR$<44 >=146 99 96,125,248,48,11 
2,209 *DEFGR9K 45 >=37 101 205,185,102,30,4 
,23 !DEFGR*<46 >=50 112 208,16,80,123,222, 
101-DEFGR$<47 >=68■7î 2 227.2, i 3,17,227 = F 
IG$< 6 >=GR$< 44 >+GP* 1 ' 45 +SRUT$+GR$< 46 >+GR$ 

< 47 > 

50280 DEFGP$f 48 >=0 9 0,3.12.16.16.16 = DFF 
GR$< 49 >=124,66 129 0 0 48,72,252=DEFGR$< 
50 >=32,64,131,136 145 99,14,56 = DEFGR$<51 
>=48,0,192,49,162 66 140,112 = FIG*<3 >=GR$ 

< 48 >+GR*< 49 >+SRUT$+G c '$< 50 >+GR$< 51 > 

50290 DEFGR$<52 >=0 0 0 .3.15■31.31.31=DEF 
GR$< 53 >=124,126,255 255,255,191,31,191=D 
EFGR*<54 >=63,127 255 248■241,99,14,56 = DE 
FGR$< 55 >=255,255,255 63 190,126,252,112 = 
FIG$< 4 >=GR$< 52 >+G&£' 53 >+SRUT$+GR$< 54 >+GR 
$< 55 > 

50300 DEFGR$<56 >=191 207,127,63,124,124, 
127,127 = DEFGR$<57 >=193 243,254,252,236,2 
06,254, 254 = DEFGRS' - 58 >= 127,127,63,30, 15,6 

3.255.255 = OEFGR$=' 5 e1 " =254,254,60,24,48,25 

2.255.255 =FÏG$< 5 >=GP*< 56 >+GP*< 57 >+8RI IT$+ 
GR$< 58 >+GR$< 59 > 

50305 FIG$< 7 >=" "+SfiUT$+" " 

50310 DEFGR$<60 >=152,189,189,152,189,125 
,63,63=DEFGR$<61>=198 239,239,198.239,23 
9,255, 255 = DEFGR*< 52 >=63,57, 41 73 ' 13?" 137 
,137,133 = DEFGR$<68'=299 939 , 999 .233.41 .4 
1,41,187 

50320 DEFGR$<64 >=1,3,7,15,31,63,127,119 = 
DEFGR$<65 >=255,255,31 255,255,255,255,25 
5 = DEFGR$<66 >=2,2■0•2.9 7.7.7 = DFFGP*<67>= 

255.31.31.31.255 255 255,255=FIG$<1>=GR$ 

< 64 >+GR$<65 >+SRÜ T $+GR$<66>+GR$<67 > 

50330 DEFGR$< 6? "== 1 . 1 0 4,8, 19,32,64 = DEFG 
R$<69 >=252,84,252,14,6.7,15,15 = DEFGR$<70 
>=64,56,12,30,63 127,62,0 = DFFGR$<71>=31, 
63,111,79,198,196,132132 


50340 DEFGR$< 72 >=135,200,200,144,144,150 
,î 44,144 = DEFGR$<73 >=224,16,16,8,8,104,8, 
8 = DEFGR$<74 >=144,144,144,144,136,188.195 
,192 = DEFGR$<75 >=8,8,8,8,16,62,193,1 
50345 DEFGR*<76 >=60,60,68,24,63,62,254,3 
0 = DEFGR$< 77 >=0,0,0,0,0,128.64,32 = DEFGR$< 
78 >=14,31,51,99,97,48,24,56 = DEFGR$<79 >=0 
,0,0,123,240,48,16,0 

50350 DÊFGR$< 80 >=27,56,112.240,224.230.? 
24,192 = DEFGR$<81>=224,28,12,15,15,103,7, 
7 = DEFGR$< 32 >=193.32,35.16,9,247,3?.63 = DF 
’FGR$< 83 >=130,4,196,8.8.231.4,25? 

50360 DEFGR$< 84 >=7,24,32,64, 166, 160, 1.60 . 
160 = DEFGR*<85 >=224,24,4,2,49.1,133,5 = DEF 
GR$<86 >=161,214,72,96,16,8,124,131=DFFGR 
*<87 >=197,41,16,2,4,8,158,97 = R! _CH$=GR*< 8 
4 >+GR$< 85 >+SRÜT$+GR$< 86 >+GR$<87 > 

50370 OEFGR$< 38 >=31,63,62, 1.24,120,243,24 
9,240 = DEFGR*<89>=248,252,30,7,7,3,155,1 = 
DEFGR*<90 >=248,243,252,239,119,43,9,248 = 
DEFGR*<9 ï >=1,33,247,î 59,254,254,252,248 = 
Y0I I8TR$=GR$< 88 >+GP$< 89 >+901 IT$+nP$< 90 '.+GP 
$<91 > 

50380 DEFGR$<92 >=63,127,236,128,144,136. 
129,193 = DÊFGR*<93 >=248,254,127,47,7,19,3 
9,7 = DEFGR*<94 >=193,192,99,116,251,255,21 
5,3 = DEFGR$< 95 >=7, 14,139,95,155243,227,2 
07 = RBRR$=GR$<92 >+GR$<93 >+CHR*<8 >+CHR$<8> 
+CHR$<10)+GR$<94 >+GR$<95 > 

50390 DEFGR$<96>=13,7,3,3,14,23,42,42=DE 
FGR$< 97 >= 192, 192, 128,128, 96 , 80 , 13 P, ; 72 = DE 
FGR*<98 >=64,33,34,16,8,7,0,0 = DEFGR$<99>= 
40,40,8,16,16,224,0,0=B0UR8E$=GR$<96>+GR 
$< 97 >+SRUT$+GR$< 98>+GR$< 99 > 

50400 DEFGR$<100 >=24,36,66,66,90,66,90,6 
6 = DEFGR$<101>=90,66,36,24,0,0,0,0 = NOUP$= 
GR*< 100 >+CHR*< 8 >+CHR$< 8 >+CHR$< Ï.8 >+GR$< 1.0 
1 > 

50410 DEFGR$< 102 >=0,60,126, 255,255, 1.26, 1 
26,66 = DEFGR*<103>=8,40,28,8,8,8,8,8 = DEFG 
R$< 104 >= 1 29, 195, 189, 1.29, 145,74,66, 1.26 = DE 
FGR$<105 >=60,66,102,90,90,ï 02,66,60 = DEFG 
R$<106 >=1,1 0 ,4,10,16,32,0,0 = DEFGR$<107>= 
28.34.34.28.8,8,56,56 

50415 DEFGR*< 108>=0^0,126, 129, 1.29, 185.70 
,0 = DÊFGR$<109 >=0,66,66,66,126,126,126,12 
6 = DEFGR$< 110 >=60 ,'86,66,129, 129,129,66,60 
= DEFGR$<111>=24,24,124.188,188.124.60.60 
50420 DEFGR$<112 >=64,94,82,82,94,66,126, 
0 = DEFGR$< 11 3 >=0, 66 , 66,66,66,66.66, 1.26 
50430 DEFGR$< 11.4 >=15, 63.127, 255 , ? 55,170 , 
128,156 = DEFGR$< 115 >=240,252,254,255., 255, 
171,1,57 = DEFGR*< 116 >= 129, 1.29, 1.29, 129,64, 
163, 144,72 = DEFGR$< 11.7 >=129, 1.29, 129-, 1.29, 1. 
,194,9,18 = DEFGR$<113>=36,20,52,79,128,12 
8,128, 128 = DEFGR*< 119 >=36,40, 44,242/1, 1., 1. 
, 1 

50440 DEFGR$'. 120 >= 140.1.43,1 48.1 48,148.1 4 

8.143.129 = DEFGR$< 121 >=49,41,41,4 î., 41., 41., 

241.129 = DEFGP$< 122 >= 128,1 ?S . ?Fi?=i. 2? , 32,82 
,32,32 = DEFGR$<123 >=1,1,255,4,4,4,4,4 
50450 DEFGR$< 124 >=32,32,63, 12., 12,12, 1.24, 
124 = DEFGR*<125>=4.4.252.48,48,43, 63,63 
59460 RETURH 

51000 RTTRB1,1= J=68 = FORI=5 TO 29 8TEP8 = n 
0L0R0,8 = LOCRTEI ,15 = PRIMTGR$< .J >+GR$< J+ï >+ 
SRUT$+GR$< J+2 >+GR$< J+3 > =. !=. 1+4 = NEXT = PTTRR 
0, 1=COLDR0,7 = RETURH 
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53000 GOSI1031500 : env< 1 . 1H 25, 30 > "R" : RTT 
RB0,1 = L0CRTE12,9 ■■ PRINTRBRR* = RTTRB0.. 0 * PL.fi- 
Y"03L15T17R1PE#PEPERESO#MIttFRSOFRREDORE# 
REPERE"*LOCRTE0,22 <PPIHT"RBRRGEDEOH LE T 
ERRI BLE " CHR$C 24 > ; < RETURH 
60100 DRTfi 1,1,1, 1,1,1, 1,1, 1,1,1,1,1,1,1 

, i, r, 1 , 1 , i, i, î, i 

60110 DRTR 1,0,1,1,1,0,1,0,1,1,0,1,1,1,0 
,1,1,1,0,0,0,0,1 

60120 DRTR 1,0,0,0,0,0,0,0,0,0,0,0,0,0 , fl 
,0.0,0.0,1.0.1,1 

60130 DRTR 1,1,0,1,1,1,1,0,1,1,0,1,0,1,0 
,1,0,1,0,1,0,1,1 

60140 DRTR 1,0,1,1,0.0.0,0.O,1,0.1.1,1.0 

,î,1,1,0,0,0,0,1 

60150 DRTR 1,0,1, 1., 1, 1, 1,0, 1, 1,0,0, 1,0,0 
,0,0,1,0,1,0,1,1 

60160 DRTR 1,0,0,0,0,0,1,0,0,1,1,1■1,1,1 
.0,1,1,0,1,0,0,1 

60170 DRTR 1,1,O,1,1,0,1,0,1,1,0,0,O,0,g 
,0,1,1,0,1.0,1,1 

60180 DRTR 1,1,0,1,0,0,1,1,1,1,0,1., 1,1., 1. 
,0,0,1,0,0,0,0,1 

60130 DRTR 1,1,0,1. . 1,0,0, O, 0,0,0, 1,0,0.1 

,1,1,0,1,1.0,1,ï 

60200 DRTR 1,0,0,1,1,1,1,0,1,1,0,1,1,0,1 
,1,0,0,0,0,0,1,1 

60210 DRTR l.t.0.1.0.1.1,0.1,1.0.0.0.0.0 
,1,1,1,1,1,0,0,1 

60220 DRTR 1, 1,0, 1,0, 1,0, 0,0, 1., 0, 1,0, 1,0 

. 1 . 0 , 0 , 0 . 1 , 0 . 0.1 

60225 DRTR 1,1,0,1., 0,1,1,1,1,1., 1,1., 1 ,1,1. 

,1,0,1,0,1,0,0,1 

60230 DRTR î,0,0.0,0,0,1.0,0.0.0,0.0.0.0 
,0,0,1,0,1,0,1,1 

60240 DRTR 1,1,0,1,1,1, 1,0,1,9, 1,0, 1., 1 , 1. 
,1,1, î., 0,1, 1,1, 1 

60250 DRTR 1,1,0,0,0,0,0,0, 1,0, J., 0.1,5 ,0 
,0,0,0,0,1,0,1,1 

60260 DRTR 1,1,1,1, 1., 1., 1, 1., 1, 1, 1, 1., 1., 1,0 
,1,1,1,1,11,1,1 

61000 ' 

61002 GO3IJB21500 

61805 IF DRIHK=0 THEHLOCRTE0,22 ; PRIHT"UH 
SIFFLEMENT STRIDEHT . ... " : PLRY " R0O5T42L. 
90SI" : L0CRTE0,22 = PRIHT"UHE ENORME SCIE.. 


.VOUS COUPE EH DEUX"=PLRY"fl1101T41L14FR# 
FRRE#FR#RE#FR#RE#FR#FR#RE#FR#P":GOTO6300 
0 

61010 X=12 :Y=3 = PRIHTCHRÏC20> = PLRY"R0O4L2 

4T5" 

61020 REBTORE60100 ; FOp. 1=2 TR 1R : F0R T “2 
T024 : RERDfifi = RC I, J >=flfl 
61030 IF RR-1THEH PSETC I, J }CHR$C 1.63 > 
61040 HEXT : HEXT ; FOR TP=1 TO 1000 ! HEXT 
61045 FOR1=2 TO 24>F0RJ=2 TO 19 :PSETCI,J 
j" ":HEXT:PLRY"SI"=HEXT■PSET ( X,Y>CHR*<16 
3 > ; PSETf 21 ■ 10>GP*f 102 ^ 

61050 I$=IHKEY$ ! IF i*»"" THEH 61.050 
61060 PX=X-<I«=€HR$<9 ) )+<I$=CHR$< 8>>■PY~ 
Y-< I$=CHP$f 10 '■+< i$ssCHP*< 1.1. > 

61070 IFfl<PX,PY >=1THEH PLRY"DO"<PV=PV-1< 
PSET< PX,PY>CHR$<163 V L0CRTE32,16 = PRIHTPV 
: IF PV<=0 THEH LOCRTE0,22 ! PRIHT"ICI SEPR 
VOTRE TOMBE POUR L'ETERHÏTE .."j^GOSUBS 
3000 ELSE 61050 

61075 IFPX=21 RHD PY=10 RHDCF=0 THEH I....OC 
RTE0,22 : PRIHT"CE COFFRE EST fl VOUS.IL CO 
NTIENT ! "j : LOCRTE0,23 : PRIHT"UHE EPEE MRG 
I QUE "GP.$< 103 V ET UHE CLE "GR$f 107 > ■ ! FO 
RT=1TO4000 : HEXT <GOSUB63500 : 0F=1=EPEE=1 :C 
LE=1 

610P0 PSETCX.Y >" "^ LOCRTEX,Y,0•PSETCPX.P 
Y >CHR$<162 > : LOCRTEPX,PY,1>X=PX*Y=PY = FOR 
TP=1 TO 200 : HEXT■PRIHTCHR5K 20> 

61.090 IF X=16 RHD Y* 19 THEH X=18 = Y=6 » LOC 
RTE0,22’PRINTCHR$<24 )CHR$<20>;=RETURH 
61100 L0CRTE32,16 : PRIHTPV = G0T061050 
63000 • 

63005 SCREEH0,7 = GOSUB40200 : PLRY"03R1L15T 
28REREL14T10REL20RET15L30FRL23T10MIT8MIT 
10RET8REDO#T25RE." = CLS : RTTPB 0, 1 • LOCRTE0, 
5 ; PRI HT " DES IREZ-VOUS RETENTEZ L ■’ RVEHTURE 
?" :X$=IHPUT$<1 ) =ÏFX$="0" THEH CLS = SCREE 
N0,7*RUH ELSE P0KE8310,7=RTTRB0,0 : CLS■EH 
D 

63500 LOCRTE0.22 : PRINTCHR*<24 > «LOCRTE0,2 

3 «PRINTCHRÏC24 >j «RETURH 

63510 FOR 1=0 T04 : SCREEHI : PL..RY"n3Rl L.7T1.6R 

ER3L15LR#S0L.fl#SISIPSIDOREMIFR" : HEXT. = RETU 

RH 


MO 5 

BATAILLE NAVALE 

Un grand classique adapté 

sur votre micro préféré. Il est possible de jouer à deux 
ou contre l'ordinateur. 


10 *%%%%%%%%%%%%%%%%%%% 

158 DEFINT R-Z 

20 '* BATAILLE NAVALE % MR.J 07/85 

200 DIM NC 1,4.4.5.2 V - 1 ROSIT. F! FM HRV = 

30 ' t%**tt*****t.**t**t% 

1 JOUEUR,0 MOS ! U ! S ! T ! 

50 CONSOLE 0,24 

210 DIM DX.JC4,4>,DY.JC4,4>: •'ORIENT HRV.J 

100 CLS 

220 DIM PIXC4,4,5,3) ! ' POSIT INTERD. OR 

110 SCREEH 4,6,6 

230 DIM PIYC4,4,5,3) : POSIT INTERD. OR 
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240 DIH P J X< 4,4,5,3 ) = ' POSIT IHTERD. . IR 
250 DIM PJY<4,4,5,3) = ' POSIT INTERD. If? 
270 DIM CAJ< 12,12)=' PERTINENCE DU COI IP fl 
-JOUER 

?50 NAV$<1)=" DU PORTE-AVIQHS NO" 

960 NAV$< 2 )=" DU CUIRASSE NO" 

?70 NAV*< 3 )=" DE L .* ESCORTEUR HO" 

?S0 NAV$<4 >=" DU SOUS-MflRIN HO" 

1000 ' ***** ECRAN DU JEU ***** 

1010 ATTRB 1,1 

1020 LOCATE 5,2,0 

1030 PRIHT"BATAILLE NAVALE" 

1040 ATTRB 0,0 

1050 LOCATE 3,4,0 

1060 PRINT"A CECI K" 

1070 LOCATE 27,4,0 
1080 PRIHT"A CECI K" 

1090 LOCATE 4,5,0 

1100 PR I HT "B D F H J L. VOTRE B D F 

H l L 1 ' • 

1110 LOCATE16,6,0 
1120 PRINT"FLOTTE : " 

1130 LOCATE16,7,0 

1140 PRÏHT"<<-" 

1150 LOCATE16,9,0 
1160 PRINT" VOS " 

1170 LOCATE16,10,0 
1180 PRINT" TIRS : " 

1190 LOCATE16,11,0 

1200 PRINT"->>" 

1210 LOCATE 16,13,0 
1220 PRIHT 11 X EH MER" 

1230 LOCATE 16,14,0 

1240 COLOR 1 ! PRINT"X ".;= COLOR 4 s PR T NT "EH 
VUE" 

1250 LOCATE 16,15,0 

1260 COLOR 15 = PRIHT CHR$< 127 ).i •• COI OR 4 = P 
3 INT " TOUCHE" 

1270 LOCATE 16,16,0 

1280 COLOR 1 * PRINT CHR*< 127 ); = CO| AP 4 = RR 
INT" COULE" 

1290 ' 

1300 FOR 1=1 TO A 
| 1310 LOCATE 1,1+6,0 
1320 PRINT M I D*< STR$<I ), 2 ) 

1330 LOCATE 25,1+6,0 
1340 PRINT MID$<STR$<I ),2) 

1350 NEXT I 
1360 FOR 1=10 TO 12 
1370 LOCATE 0,1+6,0 
1380 PRINT MID$<STR$< I),2) 

1390 LOCATE 24,1+6,0 
1400 PRINT MID$< STR$<I ),2 ) 

1410 HEXT I 

1420 LINE <22,54)-<121,54) 

1430 LIHE -<121,153) 

1440 LINE K22,153) 

. 1450 LINE -<22,54) 

1460 LIHE <214,54W312,54) 

1470 LIHE -<312,153) 

1480 LIHE -<214,153) 

1490 LIHE -<214,54) 

1500 COLOR,7 
! 1510 FOR 1=1 TO 12 
1520 FOR J=1 TO 12 
1 :530 K=<I + J ) MOD 2 
1540 OH K GOTO 1590 
1550 LOCATE 1+2,J+6,0 


1560 PRINT CHR$< 32 ); 

1570 LOCATE 1+26,J+6,0 
1580 PRINT CHR$<32); 

1590 HEXT J,I 

1600 COLOR,6 

1700 CONSOLE 20,24 ! CLS 

1710 PRINT" CHOISISSEZ LA FORCE DE L/ORD 

INATEUR *" 

1720 PRINT" TAPEZ 1 POUR FAIBLE" 

1730 PRINT" TAPEZ 2 POUR MOYEN " 

1740 PRINT" TAPEZ 3 POUR FORT " 

1750 D$=INKEY* 

1760 R=RND 

1770 IF D*="" THEH 1750 

1780 IF D$<"1" OR D$>"3" THEH 1750 

1790 NDIF=VAL<D$) 

1800 CLS 

1810 PRINT" VOULEZ-VOUS ENTRER VOTRE F 
LOTTE VOUS-MEME ? < Ô 01 i H )" 

1820 D$=INKEY$ 

1830 IF D$="" THEH 1820 

1840 IF D$<>"0" THEN CLS : GOTO 15000 

1850 CLS 

1900 •* GOTO 4400 s' POSIT NAV ORD IN. 

1910 ' GOTO 7000 = ' ENTREE DES TIRS J 
2000 '**** ENTREE DES POSITIONS DES HAVI 
RES DU JOUEUR ***** 

2100 FOR 11=1 TO 4 
2140 SF=IJ ! ' NB NAV TYP IJ=U 
2150 TF=5-U ! * NB EL DE NAV TYP IJ==U-5 
2160 FOR S=1 TO SF='DE 1 A NB NAV TYP U 
2170 EE=0 ! ******** INIT. DU NB DE TENTAT 
ÏVES DE POSITIONNER UN ELEMENT j QUAND E 
E EST > 5 ESSAIS = BATEAU IMPOSSIBLE A T 
RACER : ABANDON RIJN ******* 

2180 FOR T=1 TO TF *'DE 1 A NB EL DES NAV 
DE TYPE U 
2200 CLS 

2220 PRINT"POSITION" i NAV*<U ) ; S 
2230 PRINT"POSITION DE L'ELEMENT NO 

T 

2240 INPUT"1 ERE COORDONNEE <LETTRE DE A 
•9. L) ",X*'COLOR 4 

2250 IF X*<"A" OR X*>"L" THEN COLOR 1J0 

CATE 0,22,0=GOTO 2240 

2260 XP< T)=ASO< X$ )-62 

2270 INPUT"2 EME COORDONNEE <CHIFFRE DE 

1 3. 12) ", Y*'COLOR 4 

2280 YP< T )=VAL..< Y* )+6 

2290 IF YP< T )< 7 OR YP<T)> 18 THEN COL 
OR 1=LOCATE 0,23,0=GOTO 2270 
2300 IF POINT< XP< T)*S+4,YP< T)*8+4)=0 THE 
N CONSOLE 22,24 = CLS = COLOR 1= CONSOLE ■ 20,2 
4=GOTO 2240='***CASE DEJA OCCUPEE**** 
2500 '**TEST VALIDITE DE L’ENTREE ' 

3020 IF T=1 THEN DXJ<U,S)=1=GOTO 3500 = 
VERS TEST NON PROX. DXJ=1 NECESS POUR DE 
TERMINER ZONE PROTECTION AUTOUR DES S-M 
3100 '*** COHERENCE DES NAVIRES (TOI)* 
3120 IF T >2 THEN 3200 =-'TEST ALIGHEM 
3130 ****TEST PROXIM 2 EME ELEM / 1ER 
3140 DIST=SQR<< N<1,U,S,T-1,1)-XP<T ) ) A 2 + 
< H< 1, U. S. T-1 .2 )-YP< T ) ^ 

3150 IF DIST>1.2 OR DÏST=0 THEN COLOR 1 
= GOTO 3990 = •* ENTREE NON VALIDE< POSIT EN D 
ÏAG=1.414) 

3160 '*** DETECTION DE L' ORIENT. DU NAV 
3170 IF N< 1, U, S, 1, 1 )-XF'< T ) =0 THEN DXJ< U 
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.. 8 >=8 ' DY J< U.. 3 >= 1 

4330 FOR 14=1 TO 3 

3180 IF H< 1 • IJ, S • 1.2 >-YPf T > -0 THEH DYJ< U 

4340 PJX< U, S, T, 14 >=XP+< T-1 >*DXJ< U, S >+( W-2 

.. S >=0 ; DX J< U .■ 8 >= 1 

■)*DYJ< IJ, S > 

3130 GOTO 3500 

4350 P.JYC IJ, S, T, 14 )=YP+< T-1 >*DYJC U, S >+< 14-2 

3200 '*** TÊ8T fil. I GH RESP DES ELEM >2 

>*DXJ< U,S > 

3210 IF DY JC IJ .■ S >< >0 THEH 3300 = •' *DX J =0 

4380 HEXT 14, T 

3230 YC 0 ^Hr' 1.11,8,1,2'' 

4390 HEXT S,U 

3230 IF YP<TX>Y<0> THEH 3990 

4400 CONSOLE 20,24 

3240 FOR 14=1 TÜ T 

4410 CLS 

3250 X< 2*14-1 >=H< 1, IJ, S, U, 1 >-1 

4420 PRIHT 

3260 Y/.. 2*14 >=H< 1, U, S, 14, 1. H1. 

4430 COLOR 0 

3270 HEXT W 

4440 PRINT" QUELQUES INSTANTS DE PATIEH 

3280 FOR V=1 TH T*2 

CE S.V.P." 

3290 IF XPf T V > THEH 3500 

4450 PRIHT" l_X ORDINATEUR PLACE SA FL 

3293 HEXT V 

OTTE" 

329? GOTO 3990 

5000 ' GOTO 10000:'ENTREE DES POSITIONS 

3300 '** DYJ<>0 

DES NAVIRES DE L ORDINATEUR ****** 

3310 X<0>=N<1 .U,S,1•1) 

5100 FOR U=1 TO 4 

33?0 IF XPf TX>X<0 > THEH 3990 

5140 SF=IJ:'HB HRV TYP U=U 

3330 FOR 1*1=1 TÜ T 

5150 TF=5-U : 'HB EL DE HRV TYP LMJ-5 

3340 Y<2*14-1>=N(1,U * S,H,2 >-1 

5160 FOR S=1 TO SF : 'DE 1 A HB HAV TYP U 

3350 Y< 2*14 >=HC 1U, S, H2 >+1 

5200 XP=IHT< RHD*12 >+27 

3360 HEXT 14 

5210 YP=IHT< RHD*12 >+7 

3370 IF yp< T X 4 >y,< 0 > THEH 3990 

5240 DH<U,S>=CIHT<RHD> 

3380 FOR V=1 TO T*2 

5250 DV< U, S >= 1 -DH< IJ, S > 

3390 IF YP< T >=Y< V > THEH 3500 

5270 PXC TF >=XP+< TF-1>*DH(U,S > 

3400 HEXT V 

5280 py <TF >=YP+<TF-1>*DV<U.S > 

5290 IF PX<TF>>38 THEH DHCU,S>=-DH<U,S> 

3410 GOTO 3990 

5300 IF PY<TF >>18 THEH DV<U,S >=-DV<U,S> 

3500 '** HOH PROXIMITE DES HflVIRES **** 

5310 FOR T=0 TO TF+1>'DE 1 A HB EL DES H 

3550 FOR K=-l TO 1 

RV DE TYPE U + LES EXTREMITES 0 ET TF+1 

3560 PX=XP<T>+K 

5320 PX< T >=XP+< T-1>*DH<U,S > 

3570 FOR M=-l TO 1 

5330 PY<T>=YP+< T-1 >*DV<IJ .S> 

3580 PY=YP<T>+M 

5340 FOR 14=1 TO 3 

3590 IF K=0 RHD M=0 THEH 3700 

5350 PI X< IJ, S, T . 14 >=PX< T >+C 14-2 >*DV( IJ, S > 

3600 IF POIHTC PX*8+4, PY*8+4 X >0 THEH 370 

5360 PI Y< U, S, T, 14 >=PY< T >+< 14-2 >*DHC U, S > 

0'*** PX..PY H EST PRS POIHT D/UH HRV 

5370 IF POINT''PIX< U, S, T, 14 >*8+4, PIY< U, S, T 

3620 FOR H=1 TO T-l 

, 14 >*8+4 >=6 OR PO I NTC PI X< U, S, T, 14 >*8+4, PIY 

3630 IF PX-H(1,U,S,H,1> RHD PY=N<1,U,S,H 

(. U, S, T, 14 >*8+4 >=7 THEH 5200 

., 2 >THEH 3700 = ' **PX, PY=PÜIHT DU MEM HRV 

5800 HEXT 14 

3650 HEXT H 

5900 HEXT T 

3690 GOTO 3990 ! ' ** PX..PY EST POIHT D UH 

E0R0 •'**** P081TI OH „ DES F| FM **** 

RIJTRE HRV 

6290 FOR T=1 TO TF 

3700 HEXT M,K 

6300 N<0,U,S,T,1>=PX<T > 

3750 LOCRTE XP 1 - T >. YPC T > ■ 0 

6310 NC 0, IJ, S, T, 2 >=PY< T > 

3760 COLOR 0 

6320 R=<PXCT>+PYCT>> MOD 2 

3770 PRIHT CHR$<127 > 

6330 IF R=0 THEH COLOR 7• EI...SE COLOR 6 

3900 Ha*U*S*T* 1 >=XP<T> 

6340 LOCPTE HC0,U,S,T,1>,H<0,U,S,T,2>,0 

3910 H< 1 .■ IJ * ST., 2 >=YP< T > 

6360 PRINT CHR$(127 >;=LQCATE 0,0,0 

3980 COLOR 4'GOTO 4100 

6370 HEXT T 

3990 '**** ESSRI HOH VRLRBLE DE POSITION 

6380 HEXT S 

HER UH ELEMENT **** 

6400 CONSOLE 23,24 

4000 EE=EE+1 

6450 COLOR 1 

4010 IF EE<=5 THEH 4080 ' •' ttt ELSE'4020 

6510 CLS 

IMPOSSIBILITE DE POSITIONNER UN ELEMENT 

6520 OH IJ GOTO 6550,6560,6570,6580,6590 

RETOUR RU DEBUT DE PRRT1E ****** 

6550 PRIHT'PRIHT" PORTE-AVIONS EH 

4020 CONSOLE 0,24 

PLACE 1";'GOTO 6600 

4030 RUN 

6560 PRIHT'PRIHT" CUIRASSES EH P 

4080 T=T-1 

LACE,!":'GOTO 6600 

4090 COLOR 1 

6570 PRIHT'PRIHT" ESCORTEURS EH F 

4100 CLS 

LACÉ 1":'GOTO 6600 

4110 HEXT T 

6580 PRIHT'PRIHT" SOUS-MARIHS EH 

4150 XP=100=YP=100 

PLACE !".: 

4160 FOR T=1 TO TF 

6590 FOR BA=1 TO 300 'HEXT BA 

4170 IF XP > XP(T > THEH XP=XP(T > 

6600 HEXT U 

4180 IF YP > YP<T > THEH YP=YP(T> 

6630 CONSOLE 20,24 

4190 HEXT T 

6650 CLS 

4320 FOR T=0 TO TF+1 

6700 PRIHT'PRIHT' PRIHT" LA BATAI 
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LLE COMMENCE !"; 

6760 FOR Bfl=l TO 300 :NEXT BR 

6900 NBNOD=Q = ■' *1HIT DU NB NflV OR COULES 

7000 ' GOTO 10000 :'* ENTREE DES TIRS DU 

JOUEUR 

7050 CLS 

7070 COLOR 4 

7100 PR INT " R VOUA DF T T REP 11 : 

PRÎHT 

7110 IHPUT " LETTRE DE fl a L 

. h f j|x;$ 

7120 COLOR 4 

7150 IF TX$<"fl" OR TX$>"I 11 THFN mi RR 1 : 
LOCflTE 0,22,0:GOTO 71 1 0 
7160 TX-flSC<TX*>-38 

7200 INPIJT " CHIFFRE DE 1 fl 12 

: 11 ( jy$ 

7210 COLOR 4 
7220 TY=VALCTV *>+6 

7230 IF TY< 7 OR TV > 18 THEN COLOR 1= 
LOCflTE 0,23,0:GOTO 7200 
7300 '**** DETECTION DF TOUCHE niI 00111 F 
7320 IF POINTCTX*8+4,TY*8+4>=15 OR POINT 
CTX*8+4,TY*8+4 >=1 THEN 10000 :'********* 
TIR SUR ELEM DE NAV DEJA TOUCHE 
7350 IF POINTCTX*8+4,TV*8+4 >=6 OR POINTS 
TX*8+4,TY*8+4 >=7 THEN 7400 *'************ 
***** TIR SUR ELEM INTACT ******** 

7360 GOTO 9000 *' DETECT DE EN VUE 
7400 FOR !J=1 TO 4 
7410 FÔR 8=1 TO U 
7420 FOR T=1 TO 5-U 

7430 IF NC0,U,S,T,1>=TX AND NC0,U,S,T,2> 
=TY THEN LOCflTE TX,TY,0 :COLOR 15 : PRIHT 
CHR$C 127> : CLS = GOTO 7450 ELSE 7600 *'* 
* POINT TOUCHE SITUE SUR NflV U,S**** 

7450 FOR TI=1 TO 5-U ='**** RECHERCHE SI 
TOUS LES ELEM DU NflV ILS ONT ETE TOUCHE 
S :=COULE******* 

7460 IF POINTCNC 0,U,S,T1,1>*8+4,NC O,U,S, 

T 1,2 >*8+4 > 015 THEN 10000 

7470 NEXT TI 

7480 FOR TI=1 TO 5-U 

7490 LOCflTE NC 0,U,S,T1,1>,NC 0,U,S,TI,2>, 

0 'COLOR 1 

7500 PRIHT CHR$C127> 

7510 NEXT TI 

7520 NBN0D=NBN0D+1 : IF HBNOD >= 10 THEN 1 
2500:' L.E JOUEUR fl GAGNE 
7530 CLS 

7540 FOR T1=0 TO 6 -U 
7550 FOR W=1 TO 3 
7560 PIXC U,S,TI,W>=0 
7570 PIYCIJ.S.TT .10=0 
7580 NEXT W,TI 
7590 GO TO 10000 
7600 NEXT T,S,U 

9000 '***** DETECTION DE NflV EN VIIF ** 

9100 FOR IJ=1 TO 4 

9110 FOR S=1 TO IJ 

8120 FAR T=0 TO 6-U 

9130 FÔR W=1 TO 3 

9150 IF PIXC ILS, T, W >=TX AND PIYC IJ, S, T, W > 
=TY THEN COLOR 1 ELSE 9200 
9160 LOCflTE TX,TY>0 
9170 PRIHT "X" 

9180 CLS 
9190 GOTO 10000 


9200 NEXT N,T,S,U 
9250 COLOR 4 
9260 LOCflTE TX,TY,0 
9270 PRIHT "X" 

9280 CLS 

10000 '******** TIRS DE L ORDINATEUR ** 

10005 CflJMflX=0 *XMflX=0:YMflX=0 

10010 CLS’PRINT:PRINT" PATIENCE,SVP : 

'AFFINE MA TACTIQUE !" 

10020 NCO=HCO+1 : '**NCO = NO COUP ORDIN 

1Ô025 IF NCO=1 THEN 10080 

10030 FOR X=1 TO 12 

10040 FOR Y=1 TO 12 

10045 IF H fl JCX■Y ><= 0 THFN 10060 

10050 IF CflJCX,Y>>CflJMAX THEN CflJMRX=CAJ 

CX,Y > : XMAX=X ! YMAX=Y 

10060 NEXT Y,X 

10065 IF CflJMflX=0 THEN 10080 
10070 CX=XMflX+2:CY=YMflX+6:X=XMAX:Y=YMAX: 
GOTO 10200:'**RESULT DU TIR ** 

10080 X=INTC RND*12 >+l 
10090 Y=INTC RND*12 >+1 

10100 IF CflJCX,Y> >= 0 THEN CX=X+2 ! CY=Y+ 
6 ELSE 10080 
10200 CflJC X,Y >=-100 
10500 ' RESULTAT DU TIR 
10510 IF POINTC CX*8+4,CY*8+4>< >0 THEN BE 
EP ; FOR TK=1 TO 5 ! LOCflTE CX■CY,0 :COLOR 3 
: PRINT "*":FOR TL=1 TO 20 : NEXT TL : LOCAT 
E CX,CY,O :COLOR 1 : PRINT"*"; : FOR TL=1 TO 
20:NEXT TL :NEXTTK ! GOTO 12000*'EXPLOIT D 
E EN VUE 

10550 LOCflTE CX,CY,0 
10560 COLOR 15 

10570 BEEP*BEER*PRIHT CHR$C127> 

10700 ' S-'PROG DETECT NflV COULE 
10710 FOR U=1 TO 4 
10720 FOR S=1 TO IJ 
10730 FOR T=1 TO 5-U 

10740 IF NCI, IJ, S, T, 1 >=CX AND NC 1, U, S, T, 2 
>=CY THEN CLS * GOTO 10750 ELSE 10990 *'* 
* POINT TOUCHE SITUE SUR NflV IJ, S**** 
10750 FOR T1=1 TO 5-U :'**** RECHERCHE S 
I TOUS LES ELEM DU NflV U,S ONT ETE TOUCH 
ES * =COULE******* 

10760 IF POINTC NC 1,U,S,T1,1>*8+4,NC 1,U,S 
,T 1,2 >*8+4 > 015 THEN 11000* ' PONDERATION 
DES CASES AVOISINANTES 
10770 NEXT TI 
10780 FOR TI=1 TO 5-U 

10790 LOCflTE NC 1.. IJ, S, T1, 1 >, NC 1, U .S, TI, 2 > 
,0 :COLOR 1 

10800 BEEP * BEEP * BEEP * PRINT CHR$C127 > 
10810 NEXT TI 

18820 NBNJD=NBNJD+1 * IF NBNJD >= 1.0 THEN 
13000*' L ORDINATEUR fl GAGNE 
10830 CLS 

10840 FOR T1=0 TO 6-U 
10850 FOR W=1 TO 3 

10860 XI=PJXC U,S,TI,W>-2* Y1=PJYC U,8, TI,W 
>-6 

10870 IF XI>12 OR X1 < 1 OR Yl>12 OR YKl 
THEN 10880 ELSE CflJCXI,Y1>=-100 
10880 NEXT W,TI 

10890 FOR TK=1 TO 12*FOR TL=1 TO 12*IF C 
flJCTK,TL><=0 THEN 10908 ELSE CflJCTK,TL>= 
Cfl JC TK, TL >-4 
10900 NEXT*NEXT 
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10980 GO TO 7000= 'RET. RU J... HfiV COUL 
10990 HEXT T,S,U 

11000 "444POND. POUR HRV. TOUCHE SEULMT 
11410 FOR R=-l TO 1 
11420 FOR Q=-l TO 1 
11490 X3==X+R = Y3==Y+Q 

11440 IF X3>12 OR X3<1 OR Y3>12 OR Y3<1 

THEH 11470 

11450 IF R4Q <>0 THEH CA JCX3,Y3>■-100 «G 

OTO 11470 ELSE CR JC X3, Y3 >=CAJC X3, Y3 >+12 

11470 HEXT Q,R 

11490 GOTO 7000 

12000 ' EXPLOIT DU EH VUE 

12010 IF HDIF =1 THEH 7000 = •'44F0RCE 1 PR 

S D EXPLOITRTIOH DU EH VUE 

12020 ' POUR HDIF=2 OU 3 

12100 FOR IJ=1 TO 4 

12110 FOR 8=1 TO IJ 

12120 FOR T=0 TO 6-U 

12130 FOR kl=l TO 3 

12150 IF PJXC U, S, T, W >==CX RHD PJYCU,S,T,W 

>=CY THEH 12200 

12160 HEXT H, T, S., U 

12170 GOTO 12300 = ■• COUP EH MER 

12200 '444CASES R JOUER CRR EH VUE 

12210 FOR R=-l TO 1 

12220 FOR Q=-l TO 1 

12230 X4=X+R = Y4==Y+Q 

12240 IF X4>12 OR X4<1 OR Y4>12 OR Y4<1 

THEH 12260 

12250 CRJCX4,Y4>=CA JCX4,Y4 >+4 

12260 HEXT G, R 

12280 GOTO 7000 

12290 '444EXPL0IT DU EH MER 

12300 IF HDIF=2 THEH 7000 = * FORCE =2 PE8 

D EXPLOIT DU EH MER 

12310 FOR R=~l TO 1 

12320 FOR Q==~l TO 1 

12330 X4=X+P = Y4==Y+Q 

12340 IF X4>12 OR X4<1 OR Y4>12 OR Y4<1 

THEH 12360 

12350 CRJC X4,Y4>=-100 

12360 HEXT G, R 

12370 GOTO 7000 

12500 ' LE JOUEUR R GRGHE 

12550 CLS 

12560 PRIHT"BRRVO LE JOUEUR !" 

12570 PRIHT"VOUS AVEZ DETRUIT Lfi FLOTTE 
EHHEMIE EH"; 

12580 PRIHT" " HCO.: " COUPS" 

12600 GOTO 13200 

13000 ' L ORDIHRTEUR R GRGHE 

13010 CLS 

13020 PRIHT" BRfiVO LTORDIHRTEUR !" 
13030 PRIHT"IL R REUSSI R COULER Lfl FLOT 
TE EHHEMIE" .= 

13040 PRIHT" EH " jNCOj" COUPS " 

13050 FOR U=1 TO 4 
12060 FOR S==l TO IJ 
13Ô70 FOR TI=1 TO 5-U 

13080 IF PO IH TC HC 0, U, S, T1, 1 >43+4, NC 0, U, S 
, T Ï, 2 >48+4 >=15 OR PO IHTC HC 0, U, S, T1,1. >4 
3+4.HC 0 JJ,S.T1,2>43+4 >=1 THEH 13150 

î 3090 LOCRTE HC 0 , U ,8, TI, 1 >, HC R, IJ, S, TI, 2 > 
.0 = COLOR 3 
13100 PRIHT CHR$C127> 

13150 HEXT TI,S,U 


13200 1 44444 IJHE AUTRE ? 

13210 COLOR 0 
13220 LOCRTE 5,24,0 

13230 PRIHT" UHE AUTRE ? CO OU H >".; 
13250 D$=ÏHKEY$ 

13260 IF D$="" THEH 13250 
13270 IF D$<>"0" THEH 13300 
13280 PUH 

13300 •’ 444 FI H DE PARTIE 
13310 CONSOLE 0,24 
13320 CLS 
13330 SCREEH4,6,6 
13340 EHD 

15000 * 4444 EHTREE AUTOMATIQUE DES POSIT 

IONS DES NAVIRES DU JOUEUR 444444 

15100 FOR IJ=1 TO 4 

15140 SF=U = ' HB HRV TYP IJ=U 

15150 TF=5-U ='HB EL DE HRV TYP U=U-5 

15160 FOR S=1 TO IJ = * DE 1 R HB HRV TYP U 

15200 XP= I HTC RHD41.2 >+3 

15210 YP=IHTC RHD412 >+7 

15240 DHC U,S >=CIHTC RHD> 

15250 DVCU,S >=1-DHCU.S > 

15270 PXC TF >=XP+C TF-1>4DHCU,S > 

15280 PYC TF >=YP+C TF-1. >4DVC U, S > 

15290 IF PXC TF >>14THEH DHC U, S >=-DHC IJ, S > 
15300 IF PYC TF >>18THEN DVCU,S>=-DVC11,A> 
15310 FOR T=0 TO TF+1 = ''DE 1 R HB EL DES 
HRV DE TYPE U+ LES EXTREMITES O ET TF+1 
15320 PXC T >=XP+C T-l>4DHC U,S > 

15330 PYC T >=YP+C T-1>4DVC U,S > 

15340 FOR W-l TO 3 

15350 PJXCU,S,T,H>=PXC T >+C W-2>4DVC U,S > 

15360 PJYC IJ, S , T . W >=PYC T >+C W-2 >4DHC 11, R > 

15370 IF POIHTCPJXCU,S,T,U>48+4,PJYCU,S, 
T,W >43+4 >=0 THEH 15200 
15800 HEXT W 
15900 HEXT T 

16000 '4444 POSITION. DES ELEM 4444 
16290 FOR T=1 TO TF 
16300 HCl,U,S,T,1>=PXCT> 

16310 HC1,U,S,T,2>=PY<T > 

16340 LOCRTE HC1,U,S,T,1>,HC1,U,S,T,2 >,O 

16350 OOLOR O 

16360 PRIHT CHR$C127 > 

16370 HEXT T 
16380 HEXT S 
16400 COHSOLE 23,24 
16450 COLOR 1 
16510 CLS 

16520 OH M GOTO 16550 . ÎRFIS© . 1F570.16580 . 
16590 


16550 PRIHT=PRIHT" 
PLACE ! = GOTO 16600 

16560 PRIHT=PRIHT" 
PLACE ! " ,• = GOTO 16600 
16570 PRIHT=PRIHT" 
PLRCE 1 ";= GOTO 16600 
16580 PRIHT=PRIHT" 
PLRCE !".; 


PORTE-RVIOHS EH 
CUIRASSES EH 
ESCORTEURS EH 
SOUS-MARIHS EH 


16590 FOR BA=1 TO 300 = HEXT BR 

16600 HEXT IJ 

16630 COHSOLE 20,24 

16650 CLS 

16660 GOTO 4400 

39999 FOR TK=1 TO 12=FOR TL=1 TO 12=PRIH 
T CAJC TK,TL >; = HEXT = HEXT 
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T09 


BILLARD 

Un vrai billard américain en basic ? 
Vous n'y pensez pas, ce serait trop lent ! 
Essayez ce programme et vous verrez... 


10 ' BILLARD AMERICAIN POUR T09+ 

20 ' A 13 BOULES NUMEROTEES 
30 ' ET UNE BOULE BLANCHE 
40 CLS«SCREEN0,3,3 >L0CATE2,7,0 =PRINT"VOU 
LEZ DES EXPLICATIQNS(Q/N)?" 

50 A$=INPUT$(1) 

60 IF A*="0" THEN 90 
70 IF A$="N" THEN 190 
80 IF A$<>"0" OR A$<>"N" THEN 50 
90 LOCATE 0,0,0=PRINT"LES 16 COULEURS DU 
T09+ ONT LIMITES A 13BQULES CE BILLARD 
AMERICAIN. 1 COULEUR POUR LE FOND (NOIR 
>, 1 POUR LES TROUS (ORANGE), 1 POUR L 
A BOULE DE JEU <BLANC )LES 13 AUTRES POUR 
LES BOULES NUMEROTEES " 

100 LOCATE 0,5=PRINT=PRINT"LE JEU CONSIS 
TE A POUSSER LES BOULES NU-MEROTEES DANS 
LES 6 TROUS A L'AIDE DE LABOULE DE JEU. 
ATTENTION A NE PAS EPUISERIE CREDIT OU 
A FRIRE TOMBER LA BOULE DE JEU DANS UN T 
ROU. 11 

110*LOCATE 0,11,0 = PRINT : PRINT"LE SCORE M 
AXIMUM EST DE 91.IL ARRIVE QUEDES BOULES 
S'EFFACENT... CE QUI DIMINUE LE SCORE D 
'AUTANT." 

120 LOCATE 0,17,0 = PRINT : PRINT"LE SIGNE + 
AUGMENTE,LE SIGNE - DIMINUE LA FORCE D 
E LA BOULE DE JEU.LA DIRECTIONDE CETTE B 
OULE EST CHOISIE EN TAPANT UN CHIFFRE DE 
1 A 8.(VOIR JEU)" 

130 COLOR 1=LOCATE 4,23 = PRINT"SUITE... AP 
PUYEZ SUR UNE TOUCHE "«A*-INPUT*(1) 

140 CLS=COLOR 0 = LOCATE 0,0,0 « PRINT"LA BO 
ULE TOUCHEE PAR LA BOULE BLANCHE VADANS 
LA MEME DIRECTION , CEPENDANT SI LABOULE 
BLANCHE REBONDIT SUR UNE BANDE, A-VAUT 
DE LA TOUCHER , ELLE VA DANS LA DI-RECTI 
ON INITIALE DE LA BOULE BLANCHE." 

150 LOCATE 0,6,0=PRINT"LES CHOCS ENTRE B 
OULES NUMEROTEES LES FONT PARTIR AU HA 
ZARD. LE CHOC D'UNE BOULE NUMEROTEE AVEC 
LA BOULE DE JEU FAIT RECULER CETTE DER 
NIERE." 

160 LOCATE 0,12,0=PRINT"SI LE SCORE N'A 
PAS ATTEINT 91, ET QUE, SEULE, RESTE LA 
BOULE DE JEU, FAITES LA TOMBER DANS UN T 
ROU POUR ARRETER OU RE- JOUER." 

170 COLOR 1=LOCATE 3,23=PRINT"APPUYEZ SU 
R UNE TOUCHE POUR JOUER" 

180 A$=INPIJT$( 1 ) 

190 CLEAR,,15 

200 DEFGR$C1)=0,60,110,110,110,110,60,0 
210 DEFGR$<2)=0,60,102,118,110,102,60,0 
220 DEFGR$(3)=0,60,102,114,122,102,60,0 
230 DEFGR$(4)=0,60,110,110,98,118,60,0 


240 DEFGR$(5)=0,60,102,110,118,102,60,0 
250 DEFGR*(6)=0,60,102,110,102,102,60,0 
260 DEFGR$(7)=0,60,102,118,110,110,60,0 
270 DEFGR$(8)=0,60,102,126,102,102,60,0 
280 DEFGR*(9)=0,60,102,102,118,102,60,0 
290 DEFGR$( 10 )=0,60,82,82,82,82,60,0 
300 DEFGR$(11)=0,60,90,90,90,90,60,0 
310 DEFGR$(12)=0,60,82,90,86,82,60,0 
320 DEFGR$( 13 >==0,60,86,90,90,86,60,0 
330 DEFGR*(14)=0,60,126,126,126,126,60,0 
340 CLS = SCREEN,0,3' 

350 BQX(0,0)-(16,24 )CHR$(127),10 

360 BOXC1,1)-(15,23 )CHR$(127),2 

370 PSET(2,2)GR$( 14), 15 

380 PSET(2,12)GR$( 14), 15 

390 PSET(2,22 )GR$<14),15 

400 PSET<14,22)GR$(14), 15 

410 PSET( 14,12)GR$( 14), 15 

420 PSET(14,2)GR$(14),15 

430 FOR 1=1 T07 

440 J=I+4 

450 PSET< J, 5 )GR.$( I ), I 
460 NEXTI 
470 FOR 1=8 TOI2 
480 J=I-2 

490 PSET(J,6)GR$(I ),I 
500 NEXTI 

510 PSET(8,7)GR$( 13), 13 

520 LOCATE20,1= C0L0R14 = PRINT"Le signe + 

augmente" 

530 LOCATE20,2 = PR INT" la force, le si9ne - 

II 

540 LOCATE20,3 = PRINT"la diminue.Les chif 

_ Il 

550 LOCATE20,4 = PRINT"fres donnent la." 

560 LOCATE20,5 = PRINT"direction" 

570 L0CATE27,8 = PRINT" 

580 COLOR1'L0CATE32,11=PRINT"6 4 7" 

590 LOCATE20,13 = PRINT"DIRECT10N8 2 1" 

600 L0CATE32,15 = PRINT"8 3 5" 

610 COLOR14 = L0CATE33,12 = PRINTCHR$(92)+CH 
R$< 124 )+CHR$( 47) 

6^0 L0CATE33,13 = PRINTCHR$(96)+" "+CHR$(9 

630 L0CATE33,14 = PRINTCHR$(47)+CHR$(124)+ 
CHR4(92 ) 

640 X=S=Y=17=CT=1000 
650 COLOR1 

660 LOCATE20,18 = PRINT"CREDIT="^ CT 
670 PLAY"L12D0REMIFASI" 

680 PSET(X,Y )GR$(14 ),14 
690 PSET(2,2)GR$( 14), 15 
700 PSET(2,22)GR$(14),15 
710 PSET(2,12 )GR$(14),15 
720 PSET(14,22)GR$(14),15 
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730 PSETC14, 12>GRSC14>, 15 
740 PSETC14,2 >GR$C14 >, 15 
750 PC=PC=S=S 

760 LOCRTE20,23 «C0L0R1=PRINT"SCORE= "; S 
770 IF 8=91 THEN 1890 
780 FO=0 

790 L0CRTE20,8,0 = PR I HT 11 FORCE» " f FO 

800 fi$=IHPUT$C1> : FOR 1=1 TO 5 : 2D=RND=HEX 

T 

810 IF R$="+" THEN FO=FO+l=BEEP 

820 IF R$="-" THEH FO=FÜ~l=BEEP 

830 IF FO<0 THEH FO=0 

840 IF FO>60 THEH FO=60 

850 IF R$>="1" AND fl$C="8" THEH 870 

860 GOTO790 

870 CT=CT-FO 

880 IF CT<0 THEH CT=0«PLRY"L36HIL12REL48 
FR#"* GOTO1890 

890 LOCRTE20,18,0 = PRIHT"CREOIT="; CT 
900 H=+l= K=+l 
910 PSETC X, Y >" " 

920 FOR 1=1 TO FO 

930 OH VfiLXfl$> GOSUB 1980,2000,2020,2040 

,2060,2890,2120,2150 

940 IF XC = 1 THEHX=2=H=-H 

950 IF >0=15 THEHX=14 = H=-H 

960 IF Y< = 1 THEHY=2 = K=-K 

970 IF Y>=23 THEHY=22=K=-K 

980 U=POIHTC X*8+1,Y*8+4 > 

990 PSETC X, Y >GR$C 14 >, 14 = PLRY " L8RE " 

1000 IF IJ=15 THEH PLRY"T2L12D0LRD0LR" =P8 
ETC X,Y >GR$C14 >,15 = GOTO1898 
1010 IF UO-1 THEH GOSUB 1060 
1020 PSETC X,Y>" " 

1038 HEXT 

1040 IF CX=2 OR >014> AND CY=2 OR Y=12 0 
R Y=22> THEH H=-H = K=-K = FO=FO+1= GOTO920 
1050 GOTO680 

1060 IF PC=0 THEN LQCRTE 5,5=PRIHT" 

"=LOCRTE 6,6 = PRIHT" "=PSETC8,7 >" " 

= PSET < X, Y >GR$C 14 >, 14 

1070 IF PC=0 THEH FOR PZ=1 TO 13=PSETC3+ 
RHD*10,3+RHD*15 >CHR$C128+P2 >,PZ = HEXT 
1080 IF PC=0 THEH PC=1= RETURH 
1090 FOR ZX=1 TO 13=IF ZX=U THEH 1110 EL 
PE HEXT 

1100 'CHOC BB AVEC BOULE1 

1110 R=X = B=Y = RR=FO = PC-1 

1120 OH VALC fl$ > GOSUB 2380,2410,2440,247 

0,2500,2530,2560,2590 

1130 IF Rfl< 1 THEH RR=1 

1140 FOR lfi=0 TO RR 

1150 A=fl+HA=B=B+KB 

1160 IF A<=1 THEH R=2=HA=~HA 

1170 IF R>=15 THEH fl=14=HR=-HR 

1180 IF B<=1 THEH B=2=KB=-KB 

1190 IF B>=23 THEH B=22=KB=-KB 

1200 V=POIHTCfi*8+1,B*8+4> 

1210 PSETC R,B>CHR$C128+U),U = PLRY"L4MI" 
1220 IF V=14 THEH FO=FO-CIR-1>=H=~H=K=-K 
= GOTO920 

1230 IF V=15 THEH PSETCfl,B>GR$C14>,15=S= 
S+U = GOSUB2620 = FO=FO-RR = RETURH 
1240 FOR JR=1 TO 13= IF .Jfl=V THEH 1290 EL 
SE HEXT 

1250 PSETCfl,B>" " 

1260 HEXT 

1270 PSETC R,B >CHR$C128+U >,U = PLRY"L4HI" 


1280 FO=FO-1= RR=0 = RETURH 

1290 C=R = D=B 'CHOC BOULE 1 AVEC BOULE 2 

1300’ HC=SGHC RHD-RHD )FlHD RHDC 0.5 

1310 KD=SGNCRHD-RHD )RHD RHD<0- 5 

1320 IF HC=0 RHD KD=0 THEH 1300 

1330 RC=RR-IR =IF RCC 1 THEN RC=1 

1340 FOR IC=0 TO RC 

1350 C=C+HC=D=D+KD 

1360 IF C<=1 THEH C=2=HC=-HC 

1370 IF 0=15 THEH C=14 = HC=-HC 

1380 IF D<=1 THEH D=2=KD=~KD 

1390 IF D>=23 THEH D=22=KD=-KD 

1400 W=POIHTCC*8+1,D*8+4> 

1410 PSET C C,D >CHR$C128+V>,V = PLRY"L4MI" 
1420 IF H=14 THEH FO=FO~CIC-1>=H=-H=K=-K 
= GOTO920 

1430 FOR JC=1 TO 13= IF JOW THEH 1490 EL. 
SE HEXT 

1440 IF W=15 THEH PSETC C,D >GR$C14 >,15 = S= 
S+V = GOSUB2620 = FO=FO-RC = RETURH 
1450 PSETC C,D>" " 

1460 HEXT 

1470 PSETC C,D >CHR$C128+V>,V = PLRY"L4MI" 

1480 FO=FO-I=RC=0=RETURH 

1490 E=C = F=D * CHOC BOULE 2 AVEC BOULE 3 

1500 HE=SGHCRHD-RHD>RND RHD<0.5 

1510 KF=SGHCRHD-RHD >RHD RHD<0.5 

1520 IF HE=0 RHD KF=@ THEN 1500 

1530 RE=RC-IC = IF REC 1 THEN RE=1 

1540 FOR IE=0 TO RE 

1550 E=E+HE = F=F+KF 

1560 IF E<=1 THEH E=2=HE=~HE 

1570 IF E>=15 THEH E=14=HE=-HE 

1580 IF F<=1 THEH F=2=KF=-KF 

1590 IF F>=23 THEH F=22=KF=-KF 

1600 R=POIHTC E*8+1,F*8+4> 

1610 PSETC E,F >CHR*C128+U>,W = PLRY"L4MI" 
1628 IF R=14 THEH FO=FO-C IE-1 > = H=-H = K'=-K 
= GOTO920 

1630 FOR JE*1 TO 13=IF JE=R THEH 1690 EL 
SE HEXT 

1640 IF R=15 THEH PSETCE,F >GR$C14 >,15 = 3= 
S+W = GOSUB2620 = FO=FO-RE = RETURH 
1650 PSETC E,F >" " 

1660 HEXT 

1670 PSETC E,F >CHR$C128+W>,W = PLRY"L4MI" 
1680 FO=FO-I=RETURH 

1690 L=E = M=F 'CHOC BOULE 3 AVEC BOULE 4 

1700 HL=SGHCRHD-RHD>RHD RHDC0.5 

1710 KM=SGHCRHD-RHD>RHD RHDC0.5 

1720 IF HL=0 RHD K.H=0 THEH 1700 

1730 RL=RE-IE =IF RLC1 THEH RL=1 

1740 FOR IL=0 TO RL 

1750 L=L+HL = ri=n+KH 

1760 IF LC=1 THEH L=2=HL=-HL 

1770 IF L>=15 THEH L=14 = HL=-HL. 

1780 IF MC = 1 THEH M=2=KM=-KM 
1790 IF H>=23 THEH M=22=KM=-KM 
1800 T=PO I HTC L*8+1, ri*8+4 > 

1810 PSETC L,M >CHR$C128+R >,R = PLRY"L3MI" 
1820 IF T=14 THEH FO=FO-CIL-1>=H=-H=K=-K 
= GOTO920 

1830 FOR JL=1 TO 13=IF JL=T THEH 2180 EL 
SE HEXT 

1840 IF T=15 THEH PSETCL,M>GR$C14>,15=8= 
S+R = GOSUB2620 = FO=FO-RL = RETURH 
1850 PSETCL,M>" " 

1860 HEXT 
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1870 PSETC L,M>CHR$C128+R >,R = PLflV"L3MI" 

2250 IF Û<=1 THEH 0=2=H0=-H0 

1880 F0=F0-I=RE=8=RETURN 

2260 IF 0>=15 THEH 0*14= HO—HO 

1890 BOXFC160,0>-C319,152>,8 

2270 IF P< = 1 THEH P=2 : KP—KP 

1900 IF S=91 THEH LOCRTE20,5,9 * flTTRBl, 1 ■■ 

2230 IF P>=23 THEH P=22 = KF‘=-KP 

PRIHT"BRAVO" 

2290 PP=P0IHTC0*8+1,P*8+4 > 

1910 ,RTTRB0,0 = IF U= 15 THEN L.OCATE20,5 = PR 

2309 PSETC 0,P >CHR$C128+T ),T = PLAY"L3MI" 

IHT"BOULE PERDUE" 

2319 IF PF'= 14 THEH FO=FO-C 10-1 > = H—H=K— 

1920 IF CT=0 THEH LOCATE20,5 : PRIHT"CREDI 

K=GOTO920 

T EPUISE" 

2320 FOR J0=1 TO 13 * IF JQ=PP THEH GOTO 2 

1930 L0CATE29,12=PRINT"AUTRE PARTIE 0/H? 

620 ELSE HEXT 

" ) R$ 

2330 IF PP=15 THEH PSETC0,P>GR$C14>,15=S 

1940 R$=IHPIJT$C1> 

=S+T = GOSUB2620 = F0=F0-R0 = RETIIRH 

1950 IF R$="0" THEH PLAY"T4L24RED0FASILA 

2340 PSETC 0,P >" " 

S0LA3I"= RUH 

2350 HEXT 

I960 IF R$="H" THEH PLAY"T2L24S0LAS0FAMI 

2360 PSETC 0, P >CHR*< 128+T >, T = PLAY"I..3MI " 

REDO"=CLS•SCREEH2,9,9 =END 

2370 F0=F0-I= R0=9 = RETURN 

1979 IF R$<>"0" AHD R*<>"H" THEH 1949 

2380 HA=1 

1988 X=X+H 

2390 KB=0 

1990 RETIJRH 

2400 RETURN 

2900 X=X-H 

2410 HA=-1 

2010 RETURH 

2420 KB=9 

2920 Y=Y+K 

2430 RETURH 

2030 RETURH 

2440 KB=+1 

2940 Y=Y-K 

2450 HA=0 

2059 RETIJRH 

2469 RETURN 

2060 X=X+H 

2470 KB=-1 

2070 Y=Y+K 

2480 HA=0 

2080 RETURH 

2490 RETURH 

2090 X=X-H 

2509 HA=+1 

2109 Y=Y-K 

2510 KB=+1 

2110 RETURH 

2520 RETURH 

2120 X=X+H 

2539 HA—1 

2130 Y=Y-K 

2540 KB=-1 

2140 RETURH 

2550 RETURN 

2159 X=X-H 

2560 HA=+1 

2160 Y=Y+K 

2570 KB—1 

2170 RETURH 

2580 RETURH 

2180 0=L : P=M ' CHOC BOULE 4 AVEC BOULE 5 

2590 HA—1 

2190 H0=SGHC RHD-RND> AHD RHD<0.5 

2600 KB=+1 

2200 KP=SGHCRHD-RHD >RND RHD<9.5 

2610 RETURH 

2219 IF HO=0 AHD KP=9 THEH 2199 

2620 PLAY"L24D0D0SI"= 3=S+PP 

2229 RG=RL-IL=IF R0<1 THEH R0=1 

2630 COLOR1= L0CATE26,23 = PRIHTS 

2230 FOR 10=9 TO RO 

2640 RETURH 

2240 0=0+H0 ; P=P+KP 



MO 5 


BOWLING 

Ce listing possède la particularité d'exploiter 
à fond le stylo optique. 

Original pour un bowling non ? 


1 # - 

i» • 

13 IF HOT PTRIG THEH 13 

2 * basic 1.9 Ce' 1 Microsoft- 

14 G08I IB 1120 = G08UB1160 = COI np , 0 

3 ■’ BOWLING Thompson M05 1984 

17 ' 

! 4 ' 

18 1 trajet de la boule 

5 ' DUBOIS Pierre 

19 ' 

g ^- 

20 FOP T=0 TO 1000 

10 CLEAR ,,3 = FV=4 = GOSUB3000 = X=9 = PX=9 

22 ATTRB0,9 

12 H=RND 

25 H=RHD= IF PI = 1 THEH VX—INTC H#FV > ELSE 
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VX=INT<H*FV> 

40 PSETC PP X • 22 >" “s PX=PX+VX 

50 ïF CIMT<PX><=36 THFN 60 0 PF TP=0:Pl fl 

Y"R2TÎ8Ï' ! 'CT=CT+1 <PX»36‘PI*Ï 

60 IF CINT(PX >>=0 THEH 70 ELRE TP=0=P!flY 

"R2T18Ï">CT=CT+1•PX=0: P1=0 

70 PSET< PX ■ 22 ■) GR$<r 0 > PPX=PX 

72 IF IP-1 THEH80 

75 IF PTRIG THEH IP=1 'G08UB98 

80 NEXTT 

89 ' 

90 ’ lance de la boule 

9Î ■' 

100 PSET< PP Y , 22 V " ; X=PX ; Y--22 
105 COLORIS, 0 •• RTTRB0, 0 
110 FOR T»1 TO 22 

128 TES-POIHT( X*8+4, < Y-T >*8+4 > • IF TES= 1. 
1 THEH Y=Y-T'GOSUB 1010 
125 IF TES*-5 THEH RETIJRH 
130 P3ET< X,Y-T+l)" " 

140 PSET <. X, Y-T >GR4< 0 > 

150 PLAY"P"*NEXTT *PSET<X.05" " 

159 ' 

160 * sco r e 

161 ' 

170 FOR S-SC TO SCO 
172 flTTRSO,1 
175 IF S>9 THEH SP=6 
177 IF S>99 THEH SP=5 

180 COi. OR?, 1 : LÔCflT FSP ■ 2 = PP I HT? • IF S< 1 0 T 
HEHL0CRTE7,2■PRIHT"0 M 
182 IF S>99 THEH 190 

185 IF 8>9 THEH L0CRTE6,2 •• PRINTCHRSC 48 > 

190 PLAY"T1L5D0REMIFRSIL24" 

200 HEXTS : 8C=SC0 
210 IF IPI-Ï THEH I.PI-0' RETURH 
215 IF .JT-1 THEH JT=0 * GOTO 1250 
220 COLOR,4■GOTO12 

999 ' 

1000 * rone des *.ou:s. Programmes 

1001 ' 

1005 '-SSPROG-> .... quille tombée .... 

1006 * 

1010 IF X=18 THEH GOTO 1108 
1020 LOCRTEX,Y-1:PRINTEFQUI$*PLRY"DO"« SC 
n=?co+5 : p?ET< X. v+1 > " 11 
1025 IF Y-l THEH1050 

1030 IF POINT<<X-1>*8+4,(Y-3>*8+4>=11 TH 
EH LOCRTEX-1,Y-3 <PRINTEFQU1$'800*800+5 
1840 IF ROIHT<<X+1>*8+4,<Y-3>*8+4>=11 TH 
EH LÛCRTEX+1,Y-3 >PRINTEFQUI$=800*800+5 
1045 PLRY"T1R0L24DORESISOPPPPPPPPPPPPP"« 
PSET'' X, Y+1 > " " ' COLOR, 4 « GOTO 170 
1050 Y=22 « GOTO 170' RETURH 

1099 ‘ 

1100 '-SSPROG-> ...» partie gagner . 

1101 ' 

1110 BOXFC104,64>-r 192,0>.0> PLRY"DORESIS 
0" 

1112 NBT*SC0/5 « SCO*SCO+< J.3-HBT >*5 
1114 GOSIJB1220 
1116 JT=1 ■ CDTO.170 

1119 ' 

1120 '-SSPPnr,-> , „ „ „ t Boule Perdue. 

1121 ' 

11.25 COLOR, 0 

1130 P8EK 33-RP.0 >" " ! IF BP*10 THEH GOSU 
B1220 ' IPI ■* 1 ' GOSUB170 = GOTO 1250 


1140 BP=BP+1 
1150 COLOR,4'RETURH 

1159 ' 

1160 *-SSPROG-> dePart d'une boule . ... 

1161 •' 

1165 COLOR15,0 

1170 FOR T=0 TO 21 

1180 PSFTf p3 ,T >GR$C0 > 

1190 PLRY"R2T1DO"'PSET<23,T >" " 

1200 .NEXTT 
1210 RETIJRH 

1219 ' 

1220 * -SSPROG- >.. reste- i 1 des bon 1. es_ 

1221 ' 

1280 BP=BP*2 : SCO=SCO+60-BP*3-1 HT( CT."2 > 
1240 RETURH 

1249 ' 

1250 •’ -SSPROG->. . . JEU TERMINE . 

1251 ' 

1260 0LRC=0LRC+4 = LOCRTE30.2+OL.RC ' COI ..0R3 . 
0 ' PRIHTSCO*RTTRB0,0 *GOTO3020 

3000 '- 

3001 ' 

3902 •’ i n i t i a l i s a t i o n 

3003 ' 

3004 * - 

3010 CLS*LOCRTE0,0,0:SCREEH0,4,0:G08IJB40 
20 : 8CREEH0,4,0:DIMB*<50 >:SP=7 
3020 COLOR,0'FV*FV+2 = FR=FR+1= CGT*CGT+1'C 
T=0 

3030 IF FR=4 THEH 3040 ELSE 3060 
3040 IF HOT PTRIG THEH 3040 ELSE 10 
3060 DEFGR$<0>*0,0,24,60,60,24,0,0 
3070 DEFGRSC1>=24,60,60,24,60,60,60,68 
3088 DEFGR$<2 >=60,60/60,68,68,60,24,0 
3090 QIJÏLLE$=GR$<1>+CHR$C10>+CHRè<8>+GR$ 
( 2 > 

3100 EFQUI$=" "+CHR$(18 >+CHR$<8 >+" " 

3190 GRS! 183320 
3199 ' 

3208 ****** afficha9e des- quilles ***** 
3205 fl*14 : B=0:W*8:COLOR11,0 
3218 FOR T=0 TO W STEP 2 
3228 LOCRTER+T,B = PRINTQUILLE* 

3230 NEXTT : CT*CT+1 

3235 IF CT=3 THEH 3278 

3248 IF CT“1 THEH 3250 ELSE 2260 

3250 W=6'B=2 = fl*15 *G0T03210 

3268 W=4:B*4 * fl*16 :G0T03210 

3270 COLOR1'LGCflTE18,6'PRINTQUILLE*'COL 0 

R0,4 

3289 '****** reserve de quilles ******* 
3285 COLOR15,0 

3290 FOR T^g TO 9 

3308 PSETC24+T,0>GR$<0 > 

3310 NEXTT: COI. OP.4 : GOTÔ3250 
3319 ' 

3328 '**** construction du bowling **** 
3338 BOXFC104,0>-<192,175>.0 

3348 BÔXF< 8,176 >-< 31.9, 199 >, 0 

3345 BOXF< 296,0 >-< 319,199 >, 0 : RETIJRH 

3349 * 

3350 '********* S C 0 R E ********* 
3360 C0L0R3,1=LOCRTE0,2<RTTRB0,1'PRIHT"S 
CORE 800 " ' LOCATE0,6 ' PR I HT " force " .; CGT 

3999 ' 

4000 '*8»nssw D . R . T . fl =====:-==== 
4005 IF CGT>8 THEHSCO=0 = SC=0*BP=0<IPI=8' 
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■=ip=7 = 
4010 
4020 ■' 
4030 •' 
4040 ' 
4050 
4060 


P J“0 : GOTO12 
RETÜRN 


P ,3.9e d •' en tete 


G0SUB3320 

CQLQR3 .■ 4 = LOCflTE 1 ?.. , 9 
bo'.'i 1 i n9 " : RTTRB0 .• 0 
4070 L0CRTE4,16 = PR I HT 11 1 
PRIHT"2-re9les du .j<=-u. 11 
4080 IF ÏHKEY$="Î" THEH 
TF IHKEY$="2" THEN 
G0TO4080 


4090 
4 î 00 
4130 
4140 
4150 
4160 
4170 


RTTRB1■1 : PRTHT" 

.JEU" «L0CRTE4,18 = 

CLS = RETÜRN 
GOTO 4130 


re9les du. ..ieu 


CLS = SCREEH7,0,0 
L0CRTE4 ,1 * PRINT“ce 
grande atteint ion et 
.."=PRINT"le but du 


Jeu demande une 
beaucoup de r e f l ex„ 
jeu est de faire tom 


ber toutes- Tes quilles de la Piste» Une b 
ouïe se déplacé de droite a gauche et de- 
gauche a droite." ! PRI HT = PRINT 
4180 PR I HT 11 RP p u i e sur Te crayon optique 
Pour Ta Tancer mais attention Pour reuss 
ir il s'agit de viser J uste"= PRIHT = PRIHT 
4190 PRIHT"tu Peut suivre Te score et Te 
niveau de Jeu sur la Partie gauche de B 
OWLIHG mais attention Te score final. Pre 
nd en compte tous Tes Paramétrés.Il sera 
affiche sur Ta Partie droite de BOWLING 
“SPRINT SPRINT 

4200 PRINT"L'ordinateur te donne 
trois chances mais cependant 1= 
augmente a cha.qu.es fois" 

4210 C0L0R1sPRINT"presse Te crayon 
ue pour commencer" 

4220 ÎF NGT PTRIG THEN 4220 ELSE CLS = RET 
IJRH 


droit a 
n i './eau. 


s p t i. q 


TO7/70 


DESSIN 


Complément logique d'Echelcal, ce listing 
vous permet de dessiner un objet selon les normes 
du dessin technique. Une fois créée, 
votre œuvre peut être sauvegardée ou imprimée. 


1 CLEfiR,,5 

2 SCREEH7,0,0 

3 DIM EC 60 >, FC 60 ), GC 20 ), HC 20 ), J1C 20 ), K1C 
20 ), RC 10 ), X2C 10), Y2C 10), R2C 10 >, J2C 10 >, K2 
C 10 ), XC 10 ), YC 10), VUE*C 6 ), FRC 6 ), S1C 10 ), G1 
C 10), HIC 10) 

4 DEFGRSC 0)=0,4,2,1,255,1,2,4 = DEFGR$C1)= 
0,32,64,128,255,128,64,32 = DEFGRÎC2)=16,1 
6,16,16,146,84,56,16sDEFGRÎC3)=56,84.146 
,16,16,16,16,16 * DEFGR*C 4>=32,64,255,65,3 
3,1,1,255 

10 CLS = LOCRTE0,12,8 = RTTRB1,1= COL .OR1= PRIH 
T"DESSIN"=L0CRTE8,18,0 = C0L0R4 = PRIHT"TECH 
NIQUE" = RTTRB0,0 = L0CRTE22,22,0 = C0L0R7 = PRI 
HT"G.FOULON"= GOSUB62000 
130 G0T011000 

135 LOCRTE0,14,0=IHPUT"QUELLE EST VOTRE 
LONGUEUR ?",LONG 

140 LOCRTE0,16,0=IHPUT"QUELLE EST VOTRE 
LRRGEUR ?",LRRG 

150 LOCRTE0,18,0=IHPUT"QUELLE EST VOTRE 

HRUTEIJR ? ", HRUT 

152 N=0 = P=0 = 81=0 = 01=0 = CER=0 = Pl=8 

155 GOSUB52000 = CLS = C0L0R3 = Ffi=FR+1 = IF FR > 
6 THEH GOTO25000 ELSE L0CRTE5,12 = PRIHT"V 
OIJS ALLEZ DESSINER LR VUE DE " = VUE$C 1 )=" 
FACE"= VUESC 2 )="GAUCHE"= VUE$C 3)="DESSUS" = 
VUE$C 4 )="DR0ITE" = VUE*C 5 )=="DESSOUS" = VUE$C 
6 >="DERRIERE" 

156 LOCRTE13,16,0 = RTTRB1,1= COLOR1= PRIHTV 
IJE$C FR ) 


160 GOSIJB62000 = RTTRB0,0 = IF L0HG>=L..RRG RH 
D L0HG>=HRUT THEH ECH= 157/C LOHG+LRRG) 

161 IF LRRG>=LGNG RHD LflRG>=HRUT THEH EC 
H=157/CLOHG+LRRG) 

162 IF HRUT>=L0HG RHD HRUT>=LRRG THEH EC 
H= 157/C HRIJT+LOHG ) 

170 CLS = SCREEH7,0,0 = ON FR GOTO1000,1010, 
1030,1020,1040,1050 
180 ESPX=C289-X )/2 = ESPY=C 200-Y)/2 

240 C0L0R7,0 = LOCRTEESPX/8-5,ESPY/8=IF ES 
PY/8=5 THEHLOCRTEESPX/8-5,7 = PRIHT"0"= LOC 
RTEESPX/8-6, C ESPY+Y V8 = PR IHTYÆCH = ELSE L 
OCATEESPX/8-5,ESPY/8 = PRIHT"0"=LOCRTEESPX 
/8-6, C ESPY+Y )/8-= PRIHTY/ECH 

241 LOCRTEESPX/8,ESPY/8-2,0 = PRIHT"0"= LOC 
ATEC 299-ESPX)/8,C ESPY/8)-2,0 = PRIHTX/ECH 
245 GOSIJB26000 = GOSUB60000 = GOSUB47000 = GOS 
IIB48000 = GOSIJB42400 = GOSUB320 = GOTO5Q020 


250 COLOR0,0=LOCRTE 1,23,0 
OLOR5 = LOCflTE1,23,0 = PRIHTL1 
C 0 >=L1= FC 0)=LR1= L0CRTE5,23. 
0CRTE8,23,0 = PR I HT " X= " .i 
5) = LOCflTE10,23,0 = C0L0R5 


PRIHTSPCC 4 ) = C 
IF H=0 THEH E 
0 = PRIHT"->"= L 
COLOR0=PRIHTSPCC 
IHPUTL2 =IF L2>X/ 


ECH THEH L2=0 = GOSUB 55000 = GOTO50020 
260 IF H>0 THEH COLOR0,0=LOCRTE 1,23,0=P 
RIHTSPCC4 ) = C0L0R5 = LOCRTE1,23,0 = PRIHTL1= L 
GCATE5,23,0 = PRIHT"->"= L0CRTE8,23,0 = PRIHT 
"X= 

C0L0R5 

UB 55000=GOTO50020 
270 GOSUB320 


"■*COLOP0 = PRIHTSPCC 5) = I .OCRTE10,23,0 = 
INPUTL2 =IF L2>X/ECH THEH L2=0 = GOS 
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275 fl$=IHPUT$<1>! IF fl*< >CHR$< 28 > RND fl$< 
>CHR$C 2 > RHD fl*<>CHRSX 13> RND fl$<>CHR9X 4 
5 > THEN 275 

276 IF fl*=CHR$<28DTHEH H=H+1=E<N>=L2=F<N 
)=LR1 : GOTO400 

277 IF fl$=CHR$U3)THEH 509 

278 IF R$=CHR$< 2 >THEH GÜ8UB52000 : GOTO 170 

279 IF fi$=CHR$< 45 >THEN 560 

320 LQCRTE1,1,0 = COLOR0,1= PRIHTGR3X0 > = LOC 
RTE3,1,0 = PRÏHTGRSX1> = L0CRTE5,1,0 = PRINTGR 
SX 2 > = L0CRTE7, 1,0 = PR I NTGR*< 3 > = L0CRTE9, 1,0 
= PRINTGR$<4 > = LOCRTE11,1,0 = PRINT"INS"= LOC 
RTE15,1,0 = PRIHT"RCC"= LGCRTE19>1,9 = PRIHT" 
STOP" 

330 L0CRTE24,1,0 = F'RI HT " EHTREE " = L0CRTE31, 
1,0 = PRIHT"-" = L0CRTE33,1,0 = COL OR 3, 1 = F'RIHT 
"M" = C0L0R7,0 = RETIJRH 

400 L1*L1#ECH = L2=L2*ECH = LIHE<ESPX+L1,ESP 
Y+Lfil*ECH >-<ESPX+L2,E3PY+LR1TECH>,1= GOSU 
B48000 = L1==L2/ECH = GOTO50020 
500 L1 =L 1 TECH = L2=L2#ECH = GOSUB48000 = L1 =1.2 
/ECH = GOTO50020 

560 P==P+1 = G< P >=L. 1 = H< P >==LR 1 = L1 =L 1 #ECH = L2== 
L2*ECH = FORI=L1 TO L2 = LIHE<ESPX+1,ESPY+LR 
f*ECH>-< ESPX+1+2,ESPY+LR1*ECH>,1= LIHE-(E 
SPX+I+4,ESPY+LR1TECH>,-1 = 1 = 1+2 = HEXTI :GOS 
UB48000 = P=P+1 

561 G<P )=L.2/ECH = H< P >=LR2ÆCH 
565 GOTO50020 

1000 X=LOHGYECH = Y=HflUT*ECH = GOSÜB60000 = GO 

TOI 80 

1010 X=LRRG*ECH = Y=HflUT*ECH = GOSÜB60000 = GO 
TOI 80 

1020 X=LRRG*,ECH = Y=HRIJT*ECH = GOSUB60000 = GO 

.T018B 

1030 X=LOHG*ECH = Y=LRRGYECH = GOSUB60000 = GO 

TO180 

1040 X=LOHGYECH = Y=LRRGYECH = GOSUB60000 = GO 

TOI 80 

1050 X=LOHG*ECH = Y=HRUTYECH = GOSUB60000 = GO 

TOI 80 

2520 CGLOR0 = LOCRTE1,23,0 = PRIHTSPCX 4 ) = COL 
ORS = LOCRTE 1 , 23 ,0 = PR IHTLR 1 = IF H==0 THEH E< 
0 )=L1= FC H )=Lfl1=L0CRTE5,23,0 = PRIHT"->"=LO 
CRTE8,23,0 = PRIHT"Y* "j = COLOR0 = PRÏHTSPCC5 
> = LOCRTE 10, 23,0 = C0L0R5 = IHPUTLR2 = IF I..R2 >Y 
THEH LR2=0 = GOSUB55000 = GOTO50020 

2521 IF H >0 THEH COLOR0 = LOCRTE1,23,0 = PRI 
NTSPCC 4 > = CQLQR5 = LOCRTE1,23,0 = PRIHTLR1= LO 
CRTE5,23,0 = PR I HT " - >" = L0CRTE8, 23,0 = F'RI HT " 
Y* "! = COLOR0 = PRIHTSPCX 5 > = LOCRTE10,23,0 = C 
0L0R5 = IHPUTLR2 = IF LR2>Y/ECH THEH L..R2=0 = G 
OSUB55000 = GOTO50020 

2530 R$=IHPÜT$< 1 > = IF fi*<>CHR*<28) RHD fl$ 
< >CHR$X 2 ) RHD fl*OCHR*<13> RHD fl*OCHR*< 
45 ) THEH 2530 

2540 IF R$=CHR$C 28 5THEN H==H+1 = E< N >=L1 = F< 
H )=LR2 = GOTO3000 
2550 IF R$»CHR*<i3)THEH 3100 
2560 IF R$=CHR*<2>THEH GOSUB52000=GOTO17 
0 

2570 IF fl$==CHR$< 45 )THEN 3300 
3000 LR1=LR1*ECH = LR2=LR2$ECH = LIHE<ESPX+L 
2, ESPY+LR 1 )-< ESPX+L2, ESPY+L.R2 >, 1 = G0SUB47 
000 = I R1=LR2/FCH = GOTO50020 
3 ï 00 Lfll=L.R 1 *ËCH = LR2=LR2Y.ECH = GOSUB47000 
LR1=LR2ÆCH = GOTO50020 

3308 P1 =P 1 +1 = G1 < P1 >=L2 = H1 < P1 >=LR 1 = Lfl 1 ==LR 


1*ECH = LR2=LR2*ECH = F0R I=LR1 TO LR2 = LIHEC 
ESPX+L2,ESPY+I)-<ESPX+L2,ESPY+I+2>,1= LIH 
E-C. ESPX+L2, ESPY+1 +4 X. -1 = I = I +2 = H EX TI = GOSU 
647000=PI=P1+1 

3301 GK PI >=L2/ECH = Hl< PI :==LR2/ECH = Lfl 1 ==LR 
2/ECH = GOTO50020 

4000 C0L0R5 = LOCRTE 1,23,0 = PR I HTL2/'ECH = L1 
=L2/ECH = L0CRTE5,23,0 = PRIHT"->"=L0CRTE8,2 
3.0 = PRIHT"X= " .= = C0L0R8 = PRIHTSPCX5> = LOCRT 
E10,23,0 = C0L0R5=IHPUTL2=IF L2TECH>X THEH 
L2=0 = GOSIIB55000 = GOTO50020 
4020 R$=ÏHPUT*< 1) = IF fl*OCHR*<28> RHD fl$ 
< >CHR$< 2 > RHD R$OCHR«13) RHD fl*OCHR*< 
45) THEH 4020 

4030 IF R$=CHR$< 28 )THEH H==H+1 = E< H >=L2 = FC 

H)=LR1=GOTO4100 

4040 IF R$==CHR$< 13 >THEH 4200 

4050 IF fl$=CHRS<!2)THEN GOSUB52000 = G0T017 

0 

4060 IF fl$=CHR$< 45)THEH 43O0 
4100 L1 =L 1 :+:ECH = L2=L2*ECH = LIHE( ESPX+L 1, ES 
PY+LR2)-<ESPX+L2,ESPY+LR2),1=GOSUB48000= 
L1=L2/ECH = GOTO50020 

4200 L1 =L 1YECH = L2=L2YECH = GOSUB48000 = L1 =L. 
2/ECH = GOTO50029 

4300 P=P+1 = G< P )=L2 = HC P >=LR2 = L'1«L1*ECH = L2 
=L2*ECH=F0R I=L2 TO L1 = LIHE<ESPX+I , ESPY+ 
LR2)-<ESPX+1+2,ESPY+LR2),1= LINE-<ESPX+1 + 
4, ESPY+LR2. ), -1 = I = I +2 = NEXTI = P=P+1 = G< P )=L 1 
/ECH = Hf P)=LR2/ECH = GOSI IB48000 = GOTO50020 
5000 COLOR0 = LOCRTE1 , 23 ,0 = PPI HTSPCX 4 > = COL 
ÔR5 = LOCRTE1,23,8 = PRIHTLR1= L0CRTE5,23,0 = P 
RI HT " - > " = L0CRTE8,23,0 = PR I HT " Y= "= COLOR0 
= PRIHTSPCC5) = LOCRTE10,23,0 = C0L0R5 =IHPUTL 
R2 

5020 fl$=IHPUT$<1 )=IF R$<>CHR$<28) RHD R* 
OCHR3X2) RHD R$OCHR$C13) RHD fl*OÇHR*< 
45) THEH 5020 

5030 IF fl*=CHR*<28 )THEH H=H+1= E(H )=L1= F< 
H )=LR2 = GOTO5100 
5040 IF fl$=CHR$<13>THEH 5200 
5050 IF R$=CHR$<2)THEH GOSUB52000 = GOTO17 
0 

5060 IF fi$=CHR$<45>THEH 5308 

5100 Lfl 1 =LR 1 :+:ECH = LR2«LR2*ECH = LI HÇ< ESPX+L 

2,ESPY+LR1 )-< ESPX+L2,ESPY+LR2),1= G0SUB47 

000 = LR1=LR2/ECH = GOTO50020 

5200 Lfil=LAl*ECH = LR2=LR2*ECH = GOSUB47000 = 

LR1=LR2/ECH = GOTO50020 

5300 P1 =P 1 +1 = G1 < P1 )==L 1 = H1 < P1 )=LR 1 = Lfl 1 ==Lfl 
1*ECH=LR2=LR2*ECH=F0R I=LR2 TO LR1=LIHE< 
ESPX+L2, ESF'Y+I >-< ESPX+L2, ESPY+I+2 ), 1 = LIH 
E-CESPX+L2, ESF'Y+I+4 ), -1 = 1 = 1+2 = HEXTI = GOSU 
B47000 = P1 =P 1 +1 = G K P1 >==L2/ECH = H1 < P1 )=LR2/ 
ECH = Lfll=LR2/ECH = GOTO50820 
6000 GOSUB40000 = C0L0R5 = LOCRTE 1,23,O = PRI 
HTL2/ECH = L0CRTE5,23,0 = PR I HT " - > 11 : L0CRTE8, 
23,0 = PR I HT " X= " ,i = COLOR0 = PR I HTSPCX 4 ) = LQCfl 
TE10,23,0 = C0L0R5 = IHPUTL2 
6005 COLOR0 = LOCRTE 1,23,0 = PR I HTSPCX 4 ) = COL. 
ORS = LOCRTE1,23,8 = PRIHTLR1= LQCRTE5,23,0 = P 
R INT "->"■= L0CRTE8,23,0 = PRIHT "Y» 11 i = COLOR0 
= PRIHTSPC<4) = LOCRTE10,23,O = C0L0P5=IHPUTL 
R2 

6020 R$=IHPIJT$< 1 ) = IF R*< >CHR*C 28 ) RHD R 

$<>CHR3X 2> THEH 6020 

6030 IF fi*»CHR« 28 VTHEN 6100 

6050 IF fl*=CHR*<2)THEN 3200 


134 






















6100 L1*L1#ECH!L2«L2*ECH=LA1CR14ECH*LR2 
CR24ECH= LINECESPX+L1,ESPY+LR1>~CESPX+L2 
, ESPY+LR2 ), 1 = GOS!JB47000 = GOSUB48080= H=N+1 
< E< N >=L2ÆCH = FC H >*LR2/ECH= L1 «L2/ECH = Lfl 1 = 
LA2/ECH : G0TO50020 

9000 01=01 + 1 :L2=0'C0L0R5*LOCRTE 1,23,0 : P 
RI HT" 0" * L.0CRTE5,23,0 = PRI HT " - > " = LOCRTE 

8.. 23,0 : PRÏHT"X*= "= COLOR0= PRIHTSPCC 4 ) •• LO 
CRTE10, 23.. 0 ^ C0L0R5 = IHPUTL2 = J K 01 >=L2 
8005 CQLOR0=LR2==8=LOCRTE1,23,0 :PRIHTSPCC 
4 >:C0L0R5=LOCRTE1,23,0=PRIHT" 0":LOCRT 

£5,23,0' PRIMT 11 -> 11 : L0CRTE8, 23,0 * PRIHT"Y» 

".! : COLOP0 = PR IHTSPCC 4 > = LOCRTE 10,23,0 = CO! 0 
R5^INPUTLR2=KiC 01>=LR2 

9010 COLOR0=LOCRTE1,23,0=PRIMTSPCX 4 >=COL 
OR5 : L0CRTE8,23,0 : PR I HT " R= " : COLOR0= PR IH 
TSPCC 4 >^ LOCRTE10,23,0 ;C0L0R5=INPUTRC01> 
9020 PI=3.14159 * XC=L 2 4 E C H+E 3 PX=YC=ESPY+L 
R24ECH:PSET( XC+RC01>4ECH,YC >,1 
9030 FOR fl=0 TO 24PI STEP 0.05=X=XC+RC01 
X4ECH4C0SCR > = Y=YC-RC01)4ECH4SIHCR > = L1=L2 
/ECH Lfl 1 «LA2/ECH 
9040 LIHE-CX, Y>, 1 =HEXT R 
9045 L1 =0 ' LR1 =0 = 1.2=0 < LR2=8 
9050 COLOR0,0=L0CRTÈ9,1,0= PR IHTSPCC21>=L 
0CRTE9,2,0 = PRIHTSPCC 21 > = GO8UB320= GOTO500 
20 

10000 LOCRTE?,2,0^ COLOR0=PRIHTSPC( 20> = GO 
TO50020 

1 î 000 CLS < LOCRTE 10,2,0 : fl T TR B 1,1= COLOR1 = 
PRIHT"H E H U"= RTTRE0,0 
11010 L0CRTE4,6,0 = C0L0R3=PRIHT"DESSIHER 
UNE VUE —>1" 

11015 L0CRTE4,7,0 = C0L0R3 = PRIHT"SAUVER LE 
DESSIN —>2" 

11020 L0CRTE4,8,0=C0L0R3=PRIHT"CHARGER U 
H FICHIER —>3" 

11025 L0CRTE4,9,0 = C0L0R3 = PRIHT"REVOIR LR 

VUE — >4" 

11026 L0CRTE4, 10, 0 = C0L0R3 = PR I HT " TER.fi I HER 

_\.Cj II 

11030 LOCRTE 4 22,0 = C0L0R4 = PR I HT " VOTRE C 
HOIX ?">CH*=IHPUT*C1> = CHCfiLCCH*> 

11040 IF CHOl RHD CH<>2 RHD CH<>3 RHD C 
H< >4 RHD CH<>5 THEH 11030 

11045 L0CRTE4,22,0 = COLORA = PRIHTSPCC16 > = C 
0L0R7 

11046 OH CH GOTO 11050,11056,11060,11130 
,11055 

11050 GOTO12000 

11055 CLS = C0L0R5 = G0SUB44998 = EHD 

11056 CLS : GOTO 43500 
11060 CLS 

11070 L0CRTE2,2,0 = COLOR1= PRIHT"CHRRGEMEH 
T D ' UH FICHIER" = IF FR>1 THEH LOCRTE2,6,0 
= C0L0R3 = PRIHT"NOM DU FICHIER ="j =PRIHTHO 
M*=GOTO11076 

11075 L0CATE2,6,0 = C0L0R3 = IHPUT"NOM DU FI 
CHIER =",HOM*=GOTO 13000 

11076 LOCRTE0, 8,0 = C0L0R3 = PR I HT " CODE D •' RC 
CES = " j = CGL0R4 = PRI HT " TAPEZ " .= = COLOR? = PR I 
NTHOM*+ "R" J = COLOR J. = PR I HT " POUR FACE " = LOCR 
TE20,9,0 = COLOR? = PRINTMOM*+"B";= COLOR1= PR 
IHT"POUR GAUCHE" 

11077 LOCRTE20,10,0 = COLOR? = PR!NTNOMÏ+"C" 

:= COLOR1= PRIHT"POUR DESSUS"= LOCRTE20,11, 
0 = COLOR? = PRIHTNOM*+"D "> ■ COLOR1= PRIHT"POU 
R DROITE" 


11078 LOCRTE20,12,0 = COLOR? = PP. I NTNOM*+ " E " 

;=COLOR1=PRIHT"POUR DESSOUS"=LOCRTE20,13 
.0 = COLOR? = PRINTNOM*+"F ") =COLOR1= PRIHT"PO 
IJP DERRI ERE " = L0CRTE2,16,0 = COLOR? = I HPUT " V 
OTRE CODE = " ..FICHIER® 

11079 IF FICHIER*<>NOM*+ "R" RHD FICHIER* 
<>HOM*+"B" RHD FICHIER*<>HOM*+"C" RHD FI 
CHIER*< >HOM*+"D" RHD F'ICHIER*< >HOM* + "E" 
RHD FIGHÏER*<>N0M*+"F" THEH 11076 

11080 LOCRTE0,20,0 = C0L0R4 = PRIHT"CASSETTE 
PRETE 0/H ?"= REP*==ÏHPUT*C1> 

11110 IF REP*<>"Q" THEH 11080 
11120 CLS = GOSUB42000 = GOSUB60080 = HH=H = PP= 
P = SS 1 =81 = 001 ==01 = CER1 =CER = PP 1 ==P 1 = G0SUB423 
00 = GO8UB43000 = G0T042281 
11130 IF FR< 1 THEH COLOR? = GOTO 11000 EL.SE 
CLS = GOSUB60000 = HH==H = PP==P = SS 1=81 = 001=01 = 
CER.1=CER = PP1=P1 = GOSUB42300 = G0T042281 
12000 IF FR=0 THEH GOTO135 
12010 IF FR>0 THEH G0T0152=IF FR>6 THEH 
GOTO 25000 

13000 L0CRTE6, 10,0 = PR I HT "TROIS VUES DE !... 

'OBJET- >1"= L0CRTE6,12,0 = PRIHT"SIX VUE 

S DE L'OBJET - >2"= L0CRTE6,14,0 = PRIHT 

"UNE SEULE VUE ->3" 

13010 REP*»INPUT*C1) 

13020 IF REP*<>"1" RHD REP*<>"2" RHD REP 
*0"3" THEH 13000 

13030 IF REP*="3" THEH L0CRTE6,18,0 = COLO 
R0 = PRIHTSPCC30> = L0CRTE6,12,0 = PRIHTSPCC38 
> = L0CRTE6,14,0 = PRIHTSPCC30 > = G0T011076 

13038 IF REP*="1" THEH C0L0R5=GOTO13041 

13039 IF REP*=="2" THEH C0L.0R5 = G0T013855 

13041 L0CRTE6,20,0=PRIHT"CASSETTE PRETE 
C 0/H >?" = REP1$==INPUT$C 1 > 

13042 IF REP1*<>"0" RHD REP1*<>"H" THEH 
13041 

13043 IF REPI*®"H" THEH 13841 

13044 CLS = GOTO14000 

13055 L0CRTE6,20,0 = PRIHT"CASSETTE PRETE 
C 0/H>?"= REP1*=IHPUT*C1> 

13056 IF REP1*<>"0" RHD REP 1*0"H" THEH 
13855 

13057 IF REP1*="H" THEH 13855 

13058 CLS=GOTO15000 
14000 REM 

14010 FICHIER*=NOM*+"R"=GOSUB42800 = GOSUB 
60000 

14020 ESLO=C 289-C LONG+LRRG >4 FC H] >/3 = FSI.fl 

=C199-CLRRG+HRUT>*ECH1>/3 = ESPX=ESLO = ESPY 

=ESLR = ECH=ECH1= HH«N = PP«P = SS1=S1= 001«01= C 

ER1==CER = PP1=P1 = GOSUB42300 

14030 FICHIER*=HOM*+"B"=GOSUB42000 

14040 ESPX=ESL042+L0HG4ECH1 = ESPY==ESL.fl = EC 

H=ECH 1 = HH=H = PP=P = SS 1 =S 1 = 001 =01 = CER 1 ==CER = 

PP1=P1=GOSUB42300 

14050 FICHIER*=HOM*+"C"= GOSUB42000 

14060 ESPX=ESLO = ESPY=ESLR42+HRUT4ECH1= EC 

H=ECH 1 = HH=H = F'P=P = SS 1 =S 1 = 001 =01 = CER 1 «CER = 

PP1=P1=GOSUB42380 = G0T042281 

15080 REM 

15018 FICHIER*«HOM*+"R"=GO8UB42080 = GOSUB 
60008 = ECH==0 = ECH2«239/C 24L0HG+24LRRG > = ESI. 
O=20+LRRG*ECH2 = ESLR=C 199-C 24L.RRG4ECH2+HR 
IJT4ECH2 > )/4 = ëSPM==ESI_0 = ESPY«ESLR*2+LRRG4E 
CH2 = ECH=ECH2 = HH=H = PP==P = SS 1 «S 1 = 001 =01 = = CE 
RI CER = PP1=P1 = GOSUB42300 
15020 FICHIER*«HOM*+"B"=GOSUB42080 = GOSUB 
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60000 ^ ECH=ECH2:ESPX=39+CLONG+LRRG>*ECH2= 
ESPY=ESLfl*2+LRRG*ECH2 = HH=H = PP=P =SS1=81>O 
01=01 «CER1=CER : PP1=P1 : GOSUB42300 
15030 FICH1ER*=NOM*+"C"=GO8UB42090=GOSUB 
60000 = ECH=ECH2 = ESPX=20+LARG*ECH2 = ESPY=3* 
ESLA+C HAUT*ECH2 >+< LRRG*ECH2 >= NH=H = PP=P •• S 
S1 =S 1'001=01 : CER 1 CER = PP1=P1= GOSUB42300 
15040 FICHIER*=NOM*+"D" ; GOSUB42000=GOSUB 
60000 = ECH=ECH2«ESPX=10 *ESPY=ESLR#2+LRRG* 
ECH2•NH=H'PP=P= SS1=S1» 001*01=CER 1 CER=PP 
1=P1«GOSUB42300 

15050 FI CH I ER*=HOM*+ " E 11 = GOSUB42000 : GOSUB 
60000 «ECH=ECH2=ESPX=20+CLRRG*ECH2>=ESPY* 
ESLR= HH=H = PP=P * 881=81'001=01 ' CER1 «CER = PP 
1=P1«GOSUB42300 

15060 FICHIER*=MOM*+"F"=GOSUB42090=GOSUB 
60000 = ECH=ECH2'ESPX*40+LONG#ECH2+2*LRRG* 
ECH2=ESPY=2*ESLR+CLRRG#ECH2>=HH==H=PP==P=S 
S 1=81'001=01= CER 1 CER ' PP 1 =P 1 = GOSUB42300 = 
G0TO42281 

20020 C0L0R7 .• 0 = PLBV'DODODO" 

2Ô030 LOCRTE1,22,0=C0L0R3=PRIHT"UNE RUTR 
E ? "=PEP*=IHPUT*C1 )'IF REP*< >"0"THEH 11 
000 ELSE LOCRTE 1, 22,0 = COLOR0 : PRINT8FCC 20 
>'GOTO20020 

25000 LOCRTE1,12,0 = C0L0R3 = PRIHT"VOUS RVE 
Z DESSINE LES 6 VUES"'LOCRTE1,20,0'IHPUt 
"VOULEZ-VOUS FRIRE UH AUTRE EXERCICE ?", 
REP* 

25010 IF REP*<>"H"THEN FRC = GOTO 130 EL 
SE CLS'END 

26000 L0CRTE25,3,0 = PRIHT"Ech*" 

26810 IF ECH>=1 THEH ECH*=STR*CECH> = ECH1 
*=LEFT*CECH*,4)'L0CATE29,3,0 = C0L0R7 = PRIH 
TECH 1,*"= ECH=VRLCECH 1 * > = ZZ=ZZ+1 = IF ZZ= 
1 THEH ECH1=ECH = RETURH ELSE RETURH 

26997 IF ECH<1 RHD ECH>=.001THEH ECH1=EC 
HT1000 =IF ECH1<100 THEH26998 = ELSE ECH*=8 
TR*C ECH1> = L0CATE29,3,0 = C0L0R7 = PRIHTLEFT* 
C ECH*, 4 } " /1000 " = ECH 1 =ECH 1 /1000 = ZZ==ZZ+1 = I 
F ZZ=1 THEH ECH1=ECH=RETURH ELSE RETURH 

26998 ECH*=STR*C ECH1> = L0CATE29,3,0 = COLOR 
7«PRIHTLEFT*<ECH*,3>'V1000"=ZZ=ZZ+1=IF Z 
Z=1 THEH ECH1=ECH=RETURH ELSE RETURH 
30000 REM 

30005 L1=0=LR1=0 = L2=0 = LR2=0 = GOSUB48000 = G 
OSUB47000 = LOCRTE1,23,0 = COLORO = PRINTSPCC1 
5> 

30010 C0L0R5,2 = L0CRTE5,22,0 = RTTRB1,1= PRI 
NT" + "= LOCRTE30,22,0 = PRINT"-"= COLOR0,0 = RT 
TRB0,0 = REP*=INPUT*C1> 

30020 IF REP*<>" + " RHD REP*<>"-" THEH 30 
000 

30030 IF REP*=" + " THEH RTTRB1,1= L0CRTE5, 
22,0 = PRIHT" "= LOCRTE30,22,0 = PPIHT" "=RTT 
RB0,0 = GOTO9000 

30040 IF REP*="-"THEH RTTRB1,1= L0CRTE5,2 
2,0 = PRIHT" ";LOCRTE30,22,0 = PRIHT" "= RTTR 
B0,0 = GOSUB35000 = GOTÔ50020 
30050 RETURH 
35000 REM 

35010 C0L0R5=LOCRTE 1,23,0=PRIHT" 0"«L 
0CRTE5,23,0 = PRIHT"->"=L0CRTE8,23,0 = PRIHT 
" X= "= COLOR0 = PR INTSPCC 4 ) = LOCRTE 1 @, 23,0 = 
C0L0R5 = ÏHPUTL2=IF L2*ECH>X THEH GOSUB550 
00 = L2=0 = GOTO6000 

35020 COLOR0'LOCRTE1,23,0 = PRIHTSPCC4 ? = CO 
LORS = LOCRTE1,23,0 = PRIHT" 0"= LGCRTE5,23 


,0 = PRIHT"->"= L0CRTE8,23,0 = PRIHT"Y= " ; =CO 
LOR0 = PR INTSPCC 4 ) = LOCRTE 10,23, 9 = C0L0R5 = I. H 
PUTLR2 

2=1020 COLGR0 = LOCRTE 1,23, 9 = PR I NTSPCC 4 > = CO 
LORS = L0CRTE8,23,0 = PRIHT"R= "j=COLORO = PRI 
NTSPCC 4 > = LOCRTE19,23,9 = C0L0R5=IHPUTR 
35035 CER=CER+1= X2CCER )=L2 = Y2CCER >=LA2 = R 
2CCER >=R 

35040 FOR T=0 TO 6.28 STEP 0.4=XCCER>=ES 
PX+L2*ECH+R2CCER )*ECH*COSCT > = YCCFP>=FSPY 
+LR2*ECH+R2C CER>*ECH*SIHCT > = PSETCXCCER>, 
YC CER > >. 1 = XC CER >==XC CER >+R2C CER >*COSC 0. n 
= YCCER >=YCCER )+R2CCER >#SINC 0.1) = HEXT T 
35809 L1=0 = L2=9 = LR1==0 = LR2=0 
35900 RETURH 

40000 LOCRTE 1.23.0 = COLORA : PR IHTSPCC 1 PI 

40019 C0L0R5,2 = L0CRTË5,22,9 = RTTRB1,1= PRI 
HT " + " ! L0CRTE39,22, 0 = PR I HT " - "■ = COI OR0.0 = RT 
TRB0,0 = REP*=INPUT*C1> 

40020 IF REP*<>" + " RHD REP*<>"-" THEH 49 
000 

40030 IF REP*=" + " THEH RTTRB1,1= L0CATE5, 
22,0 = PRIHT" "= LOCRTE30,22,0 = PRIHT" "= RTT 
RB9,0=RETURH 

40040 IF REP*="-"THEH RTTRB1,1= L0CRTE5,2 

2,0 = PRIHT" "=LOCRTE30,22,0 = PRIHT" "= RTTR 

B0,0 = GOSUB45009 = GOTQ50020 

41000 OH FR GOTO 51000,51100,51209,51390 

,51400,51590 

4î905 FICHIER*=HOM*+S* = OPEH"0“,#1,FICHIE 
R* 

41006 PRIHT#1,X 
41097 PRINT#1,Y 

41008 PRIHTttl,H 

41009 PRIHTttl,P 

41911 PRIHTttl,SI 

41912 PRIHTttl,01 

41913 PRIHT#1,CER 

41014 PRINT#1,FR 

41015 PRINT#1,ESPX 
41916 PRIHT#1,ESPY 

41017 PRIHT#1,LONG 

41018 PRIHTttl,LRRG 

41019 PRIHT#1,HAUT 

41020 PRIHT#1,ECH1,ECH 

41021 PRINT#1,P1 

41029 IF H<0 THEH 41945 ELSE FOR R=0 TO 
H 

41030 PRINT#1,EC R >,FC R > 

41049 HEXTR 

41045 IF P<1 THEH 41051 ELSE F0RB=1 TO P 

= PRIHT#1,GC B >,HC B > = HEXTB 

41051 IF SKI THEH 41055 ELSE F0RD=1 TO 

S1= PRIHT#1,J2CD ),K2CD > = HEXTD 

41055 IF 01<1 THEH 41969 ELSE F0RH1=01 T 

0 1 STEP-1= PRIHT#1,J1C H1>,K1C H1>,RC H1> = H 

EXTH1 

41960 IF CER<1 THEH 41979 ELSE FORNOM-1 
TO CEP = PRIHT#1,X2CNOM>,Y2CNOM >,R2CNOM > = H 
EXTHOM 

41070 IF Pl< 1 THEH 41999 ELSE F0RB1==1 TO 
PI= PRIHT#1,GIC B1>,H1C B1> = HEXTB1 

41999 CLOSE# 1 = CLS = L1 =9 = L2==0 = Lfl 1=0 = LR2=9 = 
GOTO 11900 

42000 REM 

42031 IF RIGHTSCFICHIER*, 1 >=="fi"THEN FICH 
$="FRCE"= FR=1 

42032 IF RIGHT*CFICHIER*,1>*"B"THEH FICH 


136 


















*="GAUCHE"= FA=2 

42033 IF RIGHT*CFICHIER*, 1 >=="C"THEH FICH 
*='" DESSUS " = FA=3 

42034 IF RIGHT*CFICHIER*,1>="D"THEH FICH 
*="DROÏTE"=FA=4 

42035 IF RIGHT$CFICHIER*,1)="E"THEH FICH 
*="DESSOI IS" = FA=5 

42036 IF RÏGHT$CFICHIER*,1}="F"THEH FICH 
*==" DERRIERE"= Ffl=6 

42040 QPEN"I",#1,FICHIER* 

42041 IHPUT# 1, X 

42042 IHPUT#1,Y 

42043 IHPUT#1,H 

42044 I HPUT# 1 .■ P 
42046 IHPUT#1,SI 
4204? IHPUT#1,01 

42048 INPUT#1,CER 

42049 IHPUT#1,FA 

42050 IHPUT#1,ESPX 

42051 ÏHPUT#1,E8PY 

42052 IHPUT#1,LONG 

42053 INPUT#l,LfiRG 

42054 IHPUT#1,HAUT 

42055 IHPUT#1,ECH1,ECH 

42056 IHPUT# 1, PI ' IP H<0 THEH 42059 EI...3E 
FOR A=0 TO H 

42057 IHPUT#1, EC A >, FC A > 

42058 HEXTA 

42059 IF P<1 THEH 42061 ELSE F0RB=1 TO P 
: IHPUTM , GC B >, HC B > = HEXTB 

42061 IF 31<1 THEH 42062 ELSE F0RD=1 TO 
S1 = IHPUT#1,J2CD ),K2C D>=HEXTD 

42062 IF 01 <1 THEH 42063 ELSE FORNIOl T 
0 1 STEP-1 : IHPUT#1,J1<H1>,K1C H1>,RCH1>« H 
EXTH1 

42063 IF CER<1 THEH 42064 ELSE FORNOM=1 
TO CER » IHPUT#1,X2<HOM),Y2<NOM>,R2<HOM> = H 
EXTHOM 

42064 IF P1<1 THEH 42100 ELSE FORE: 1 = 1 TO 
PM HPUT# 1, G1 < B 1 >, H1 C B K * HEXTB 1 

42100 CLOSE#1 ! RETURH 

42281 LOCATE1,23,0 = COLOR.0 = PR I NTSPCC 8 :■ : ! 0 

CATE1,23,0 = C0L0R3, O = PRIHT"I MP " = REP* 

=INPUT*C 1 > 

42282 IF REP$< > ,, 0" AHD REP*<>"H"THEH 422 
81=IF REP*="H" THEH 11000 

42283 IF REP*<>"0" THEH11000 

42284 LOCATE 1,23,0 = COL.OR0 = PR I NTSPCC 8 > = CO 

L0R7 

42285 SCREEHPRIHT 

42286 LOCATE1,22,0 *C0L0R3=PRINT"UNE AUTR 
E ? " =REP*=IHPUT*C1 ) 

4228? IF REP*< >"0"THEN 11000 

42288 LOCATE1 .22.0 = COI OR0 = PRINTSPCC 20 > = G 

0T042285 

42300 REM 

42310 IF NH<0 THEH 42320 

42311 FORA=0 TO HH-1 = LI NEC ESPX+EC A >#ECH, 
E3PY+FC fi ):#ECH >-C ESPX+E< fi+1 >*ECH ■ ESPY+FC A 
+ 1 >*ECH 1.1= GOSIIB62000 

42315 HEXTA 

42320 IF PP<2 THEH 42340 

42325 FORI I==GC PP-1 >:#ECH TO GCPP>*ECH-3=L 

INE<ESPX+II,ESPY+HCPP1YECH>-CESPX+I1+2,E 

SPY+HCPP)*ECH1,1= LIHE-CESPX+I1+4,ESPY+HC 

PP >*ECH >, -1 = 11 = 11+2 = HEXTII = PF‘=PP-2 = G0T04 

2320 

42340 IF SS1<=1 THEH 42350 


42345 X8==ESPX+J2C SS 1 - .1 > = X1 =ESF'X+J2C SS 1 > = 
Y0*ESPY+K2CSS1-1) = Ÿ1«ESPY+K2CSS1>~A=CY8- 
Y1 V< X8-X1 > = R=C X0*Y1-X1*Y0 )./< X0-X1 > = FOR 
Q=X0 TO XI STEP 3 = PSETC 0,Â*Q+B >,1=NEXT Q 
= SS1=SS1-1=GOTO 42340 

42350 IF 001<1 THEH 42360 ELSE F0RNl===00î 
TO 1 STEP-1= P1*3.14159 = XC“J1<H1>*ECH+ES 
PX = YC=ESPY+KK NI >*:ECH = PSETC XC+PC NI ^ECH, 
YC>, 1 

42355 FOR BB=0 TO 2*PI STEP 0.05=X=XC+RC 
NI ITECHTCOSC BB > = Y=YC-RC NI >*FCH*S'f NC PB > 

42356 L. IHE-C X, Y >, 1 = NEXT BB = NEXT H1 
42360 IF CER Kl THEH 42370 ELBE FORNOM-1 

TO CER KFOR T=8 TO 6.28 STEP 0 ™ 4 = XX==ESP 
X+X2<HOrt>TECH+R2CNOM>*ECH*CQS<T > = YY=ESPY 
+Y2CNOM)*ECH+R2<NOM )*ECH*3IH<T > = PSETCXX, 
YY >, 1 = XX=XX+R2C NOM l*ECH*COS r ‘ 0. 1 > = YY==YY+R 
2CHOM >*ECH*SINC 0.1) = NEXT T = NEXT NOM 
42370 IF PP K 2 THEN RETURN 
42380 FOR11=H1C PP1-1>*ECH TO H1CPP1>*ECH 
= L.INEC ESPX+G1C PP1 >YECH, ESPY+II )-C ESPX+G1 
C PP1)*ECH,ESPY+11+2 >,1= LIHE-CESPX+G1C PP1 
>*ECH,E5PY+11 +4 -1 = II*11 +2 = NEXT11 = PP 1 *=P 

Pl-1=GOTO423?0 
424O0 REM 

42410 LOCATE1,21,0 = C0L0R3 = PRINT"+ POUR A 
UGMEHTER L'ECHELLE"= LOCATE1,22,0 = PRINT"- 

POUR DIMINUER L'ECHELLE" 

42411 LOCATE 1, 1,0 = C0L0R5 = PRINT " ' ENTREE •' 
POUR VALIDER L'ECHELLE" 

42420 REP*=IHPUT*C1) 

42430 IF REP*<>"+" AND REP*<>"-" AND REP 
*< >CHR*C13 ) THEH 42410 
42435 IF REP*==CHR*C 13 > THEN LOCATE 1, K 0 = 
COLOR0,0 = PRINTSPCC34 > = LOCATE1,21,0 = PRINT 
SPCC26> = LOCATE1,22,0 BRINTSPCC26) = G0SUB3 
20 = GOTO50020 

42440- IF REP*="+" THEH 42500 

42450 IF REP*="-" THEN 42600 

42500 IF ECH>=1 THEN ECH=ECH+.2 = GOTO170 

42510 IF ECH-C1 AND ECH>=.001 THEN ECH==EC 

H+.010=GOTO170 

42520 IF ECHC.001 THEH ECH=ECH+.001=GOTO 

170 

42600 IF ECH>=1 THEN ECH=ECH-.2 = GOTO170 
42610 IF ECH<1 AHD ECH>=.001 THEN ECH=EC 
H-.010=GOTO178 

42628 IF ECH<.881 THEN ECH=ECH-„801= GOTO 

170 

43000 REM 

43010 L0CATE28,22.0 = COI ORS = PR T NT " VI IF DE 
"= C0L0R4 = PR I HtF I CH* • C0L0R7,8 = RETURN 
43590 CLS = IF Ffi==0 THEN 11088 = ELSE LOCFlT 
E2,2,0 = COLOR1= PRINT"SAUVEGARDE D'UN FICH 

1ER" 

43505 IF FAM THEH L0CATE2, 6,0 = C0L0R3 = PR 
INT"NOM DU FICHIER ="; =PRINTNOM* = G0T0435 
28 

43510 L0CATE2,6,0=C0L0R3=IHPUT"NOM DU FI 
CHIER = ", HOM* = IF LEHCH0M*»5 THEH 43518 
43528 LQCATE0,28,8 = C0L0R4 = PRIHT"CASSETTE 
PRETE Q/H ?"= REP*=IHPUT*C1> 

43538 IF REP*<>"0" THEH 43528 ELSE G0T04 
1000 

44998 L1 =0 = L2==0 = LA 1 =8 = LA2=0 = HOM*== " " = FI CH 
IER*=" " = Ffl=0 = N=8 = P=0 = ECH==0 = ECH 1=0 = S 1*0 = 0 

1=8 = CER=0 = P1=0 

44999 RETURH 
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45000 S1=S1 + 1 : J2< SI )=L1 : K2C SI )=Lfll : COLGR 
0 ^ LOCRTE!,23, B■ PRINTSPCC8 > = CGL0R5 = LOCBTE 
1,23 = PRINTL2ÆCH : L0CRTE5,23,0 ; PRINT"->" 

:L0CRTE8,23.0 = PRINT"X= ": :COLOR0: PRINTSP 
C<4>:LOCRTE10,23,0=C0L0R5 : INPUTL2•L2=L2* 
ECH•TF L2>X THEN L2=0 : GÜSÜB55000:GÜTO450 
00 

45010 COLOR0:LOCRTE1,23,0 : PRINTSPCC 4 >: CO 
LORS : LOCRTE 1,23, 0 : PRINTLfll L0CRTE5,23,0 « 
F'R I NT "- > " : L0CRTE8,23,0 = PR I NT " Y= " j * COLOR 
0 : PR I NTSPCC 4 > : LOCRTE 10,23,0 : C0L0R5 : INPUT 
LR2:LA2=LA2*ECH: S1-S1 +1 = J2<31>»L2«K2( S1 > 

«.(_ pjo 

45100 X0=E8PX+J2C Sl-1 > : X1 =ESPX+J2C SI > •• IF 
X0>X1 THEN 45101 ELSE Y0=ESPY+K2C S1 — 1> = 

Y1=ESPY+K2C SI > ^ fl=C Y0-Y1 VC X0-X1 ) : B=C X0YY 
1-X1TY0VCX0-X1):F0P Q=X0 Tü XI STEP 3 ; P 
SETCQ,fl*Q+B),1 :NEXT Q:GOTO50020 

45101 Y0*ESP Y+K2< S1 --1 > •• Y1 =ESPY+K2C S1 > : fl= 
f. Y1 - Y0 )/C X1-X0 ) : 8=< -X1YY0-X0TY1 VC X1-X0 > 
«FOR Q=X1 TO X0 STEP 3 :PSETCQ,fl*Q+B ),1 : N 
EXT Q : GOTO50020 

45110 GOSUB47000 « GOSUB48000 : L1 =L2 « LFI 1 =L A 
2 :GOSUB47000:GOSUB48000:L1=L2/ECH:Lfll=Lfl 
2/ECH:RETURN 
46500 REM 

46510 CLS : GOSUB600O0 
46520 GOSUB42000: 

47000 LINEC 4,ESPY+LR1)-<12,ESPY+LR1>,-1 « 
LINE-C9, ESPY+LR 1.-3 ), -1 « LINEC 12, ESPY+LR 1 > 
-C 9,ESPY+LR1+3),-l«LINEC 4,ESPY+LR2>-C12, 
ESPY+LR2>,6 « LINE-C9,ESPY+LR2-3),6 «LINEC 1 
2,ESPY+LR2)-C9,ESPY+LR2+3>,6 :RETURN 
48000 LINEC ESPX+L1,ESPY-30>-CESPX+L1,ESP 
Y-22 > .* — 1 ! LI NE-C ESPX+L 1 -3, ESPY-25 >, -1 « LIN 
EC ESPX+L. 1, ESPY-22 )-C ESPX+L 1 +3, ESPY-25 ), - 
1 

48010 LINEC ESPX+L2,ESPY-30 )-CESPX+L2,ESP 
Y-22),6:LINE-C ESPX+L2-3,ESPY-25),6 « LINEC 


ESPX+L2,ESPY-22)-CESPX+L2+3.ESPY-25 ),6 « R 
ETIJRN 

49000 PLRY"R5T5L12D0D0#RERE#MIMIFRSOSO#" 

: GOTO11000 

50020 GOSUB320:Ai=ÏNPUT$C1 ) « IF R$< >CHRïC 
8) RND AiOCHR$C9) AND RiOCHRiCIO) R ND 
R$<>CHR$C11 ) RND R$<>CHR$C30 > RND fli<>CH 
R$C 22 ) RND RiOCHR$C2) RND fl$<>"M" THEN 
50020 

50025 IF R«=CHR$<2) THEN N«0«L1=0«L2=0«L 

fl 1 =0 ; LA2=0 : R—0 ; P 1 : n 1 —0 : rFR-Fl : 8 1 =Pl : P=0 : 

GOTO 170 

50026 IF R$="M" THEN 49000 
50030 IF R$-CHR$C 9 > THEN 250 
50040 IF R$=CHR$C10) THEN 2520 
50050 IF R$=CHR$C 8 ) THEN 4000 
50060 IF R$=CHR$C11) THEN 5000 
50070 IF R$=CHR$C 30) THEN 6000 

50080 IF fl$=CHR$C22 ) THEN GOSUB30000 : GOT 
035000 

5î000 S$="R" : GOTQ41005 

51100 8$="B"=G0T041005 

51200 S$="C" ; GOTO41005 

51300 S$="D"'GOTO41005 

51400 S$="E" : G0T041005 

51500 Si®"F"'GOTO41005 

52000 L1=0 : L2=0:LR1=0:LR2=0:RETURN 

55000 L0CRTE8,3,0 = COLOR 1 : PR I NT " I MF'OSS IBL 

E":PLRY"RIL24D0RED0RE"«LOCRTE1, 23, 0 «COLO 

R0,0 ^ PRINTSPCC15):L0CRTE8,3,8 :COLOR0’PRI 

NTSPCC10 ) :GOTO50020 

60000 BOXC0,0 )-C 319,199),7 «LINEC 289,0 )-C 
289,199),7«UNEC289, 30 )-C 319,30 ), 7 « LINEC 
289,1 fS )-< 319,169 ), 7 : LI NEC 309,0 )-C 309, 19 
9 ),7 :LINEC 299,0)-C 299,30),7 «LINEC 299,169 
)-C 299, 199 ), 7 
61000 RETURN 

62000 FORI=0TO2000:NEXTI:RETURN 
63000 FORI=0TO100 :NEXTI :RETURN 


M05 

GRAND PRIX 

Plus jeu de société que jeu d'action, ce progamme se joue 
à plusieurs. Chaque concurrent a une voiture 
et doit la piloter de façon à battre les autres. Mais 
attention : tous les coups ne sont pas permis. 


y ( 

1 •’ GRAND PRIX 
3 '******■*:*.*:*.', 

10 CLERR ,,5 
100 CONSOLE 0,24 
110 SCREEN1,10,10 
120 CLS 

130 LOCRTE 8,1,0 
135 RTTRB 1,1 

140 PRINT"GRAND-PRIX DE F.l 

150 CONSOLE 3,24 

200 ■'* DESSIN DES AUTOS 


210 DEFGRi C 0 )=7,231,66,255,255,66,231,7 
: F1 G$=GRiC 0 ) : •' tt Fl R GAUCHE 

220 DEFGRi C1 )=90,126,90,24,24,219,255,2 
19= FlHi=GR$C 1 )= '*:*■ Fl EN HAUT ■ 

230 DEFGRi C 2 )=224,231,66,255,255,66,231 
,224 : F1Di=GR$C2) ■'tt Fl fl DROITE 

240 DEFGRi C 3 )=219,255,219,24,24,90,126, 
90 = F1B$=GRiC3 ) : '** F1 EN BAS 

250 DEFGRi C 4 )=170,84,170,84,170,0,56,16 
■■■'%% DRAPEAU D ARRIVEE 


300 ECRAN DE DEBUT 
310 FOR E=1 TO 1.5 
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320 C=INT RND*6 > 

330 g=INT<'PMD*4> 

340 H= !•>’"' RND*20 ? 

350 V=INTCRND*10) 

360 LOCfiTE 2-- 2*V+5,0 

370 COLOR C 

330 FRIHT GR$ 3 

390 HEXT E 

400 LOCRTE 23 22 3 

410 COLOR 1 

420 PRINT"JPC 1986" 

990 ATTRB 0,3 
1000 GOTO 608~*"‘ 

9999 " * 

10000 "* DEBUT DE PROG PRRTÏE 

10001 " * 

10010 GOSUB 2 •?T 2.? - RECH ORDR R JOUER 

10015 IF NBV-EL =0 THEH COLOR 0,. 10 = GOSI IB 
36750 = G03UE ? ■: 2 ■? 2 CONSOLE 0, 24 : CLS : LOC 

RTE 0.0.0-END *- 13300 

10016 IF NBV-EL-hc.=0 THËH GOSUB 36550=GO 

SUB 30600'CONSOLE 0 24=LOCRTE 0.0.0=END 
10020 FOR K=1 Tr -EL = " :+:DE LR 1ERE R 
10030 I=OTOO "* I=TVP RUTQ KEME 

10032 IF FRRR I =1 THEH 12980="*HEXT K 
10035 IF FSTC I =1 THEH GOSUB 10050=GOTO 

32800 =" MVT S T : 

10040 GOSUB 10052 GOTO 19270 

10050 GOSUB 30200 GOSUB 30300="*EFFVM 

10060 LOCRTE 25 - 2 

10070 COLOR COL l ! 10 

10080 PR INT GRS' 2 ' " " ;ECUSC I >; 

10099 " * SP RFFIC- RSV ET RV 

10100 FOR J=0 TO 2 * * 4 TVP D RVflHT 

10110 LOCRTE 29-J*3,6,0 

10120 COLOR . 10 

10130 IF RVCI . =1 THEH PR INT CHR*<127 
); ELSE PR INT CH** 32); 

10140 HEXT J 

10200 FOR J=0 TC ? " * 4 TYP D RVflHT 

10210 COLOR J 

10220 FOR L=0 TO 2 '*4 POS DES RESERV 
10230 LOCRTE 29-3*J+U22,10-CL M0D2 ).0 
10240 IF LO NBR I J)-l THEH PR INT"*"; 

ELSE PRIHT " ": 

10250 HEXT L 
10260 HEXT J 
10265 RETIJRN 

10270 LOCRTE 2" 12 0 = •’-10080 

10280 COLOR 0,1 Ci 
10290 PRIHT STRS- RCI)); 

10300 D$=IHPUT*C 1 ■ 

10310 IF D$<-"0 OP '$>"9" THEH 10300 

10320 VD=Vfll_C DS 

10340 GOSUB 30208 "* EFFMG 

10350 GOSUB 30400 "* RFF VD 

10360 IF FRCCCI =1 PHD VD>3 THEH GOSUB 3 

0330=GOSUB 35350 GOTO 10300 ELSE 10400 

10400 DV-VD-VRC I ' " *—10360 

10410 IF DVOOl THEH VRC I )==VD = GOSUB 302 

00 = GOSUB 35100 = GOTO 11000 

10420 IF DV=+2 OR DV=+3 THEH IF RVC 1, 1 )== 

1 THEH VRCI )=VD GOSUB 30208 = GOSUB 35100 = 

GOTO 11800 

10430 IF DV>=2 T HEH VRC I )==VROI )+l+2*RVC I 
, 1 ) = VD=Vfl<I > = GO SL ? 30200 = GOSUB 35150 = GOS 
IJB 30400 = GOTO 11000 "*** EFM, RFR+. RFVD, G 
TDEPLTRUTO 


10440 IF DV==-2 THEH IF RV<I,2)==1 THEH Vfl 
<I )=VD = GOSUB 30200 = GOSUB 35100 = GOTO 1100 
0 ELSE DV=-3 

10450 IF DV<-2 THEH VRCI>=VAC I>-l~RVC1,2 
) = VD==VRC I ) = GOSUB 30200 = GOSUB 35208 = GOSUB 
38400 = GOTO 11000 = •• *** EFM, RFF-, RFVD, GTD 
EPLRIJTO 

11000 "* DEPLRCEMEHT RUTOS 

-10418,10428,10438•10440.1 0450 

11099 "* 

11100 "* EHREG DEPL + VALIDITE 
1110.1 'S 

11110 FCV=0 ='* IHIT FLRG CHG DE VOIE 
11128 FOR V==VR< I )-l TO 0 STEP -1 
11125 FDR==2 = ' *IHDIC DIR RET=TOUT DROIT 
11130 D$=IHKEYS 
11140 IF DS===" 11 THEH 11130 
11145 IF DS==" " THEH 11500 
11158 IF DSO" " THEH IFC RVC 1, 1 )==1 fl HD 
DV>0 ) OR C RVC 1,2 )=1 RHD DV<0) THEH FCV==1 
ELSE FCV=FCV+1 

11151 ' IF DSO" " THEH FCV==FCV+1 = 

IF FCV===1 THEH FDR==1 ELSE 
GOSUB 30200=GOSUB 35200=GOSUB 30600 

11152 IF FCV=1 THEH FDR=1 ELSE GOSUB 30 
200=GOSUB 35300=GOSUB 38608 

11500 ’% DEPL EFFECTIF 
11510 HOCRS=HOCRCI)+FDR 
11520 FFT=HOCRS 5 148 
11530 H0CflS==HÜCB3 MOD 140 
11548 FOR W=0 TO 1 

11558 IF HOCRDCW,H2CHOCfiS)) O HOCRS THE 
H 11598 

11560 IF FDR==2 THEH W==C W+l ) MOD 2 
11570 HOCRS==HOCRDC W, H2C HOCRS ) > 

11580 W=2 

11590 HEXT W='* -11550 

11595 IF SF1CHZCHOCRS>>=2 THEH XI=1 ELSE 
X1=0 

11596 IF SF1CH2CHOCRS))=1 THEH Yl=~l ELS 

E Y1 ==0 CORRECTION POUR PORTION PISTE 

11600 '* HOCRS VALIDE ? 

11618 COL==PO I HT C C XC HOCRS >+X 1 >*8+4, C YC HOC 
RS )+Yl)*8+4) 

11628 IF COL >—0 THEH 32309="* COLLIS. 
11630 IF HBTCI>=HTC THEH IF HOCRS>=26 TH 
EH 32580="* ARRIVEE 

11640 IF VRCI )>VLCHOCRS)+RVC1,0) THEH GO 
SUB 32280 = GOTO 11970="* VL DEPASSEE 
11650 IF H0CRS=7 THEH GOSUB 32608= GOTO 
11950"STD ET SAUT R HEXT V 
11660 HBTCI )=HBTCI)+FFT 
11670 GOSUB 32180=GOSUB 30288='*RF DEP 
11680 IF V=0 THEH 11750="* RRRIV DERH CR 
SE DE DEPLRCT 

11690 COLGR0,10=GOSUB 35258 
11708 GOTO 11958="* HEXT V 

11750 "* DERH CASE DEPL -11678, 

11768 IF COL =-10 THEH GOSUB 32188=GOSUB 
34080="DEPL ET RSQ 
11900 " 

11958 HOCRCI )=HOCRS="-11700,11650 

11978 HEXT V="-11648,32390 

12980 HEXT K = "*-32599,33588,18832 

12928 GOSUB 30380="EFF Vfl ET VD 
12950 GOSUB 30208 
12960 COLOR 0,10=GOSUB 36680 
13000 "* NOUVEAU CLASSEMENT 



















13010 FOR 1=1 TO HBV 

13020 CLASTCI>=NBTCI>*2800 +NOCRCI>*10 + 
PSTDC I > 

13030 OTOCI>=I 
13040 NEXT I 
13050 CLASTC0>=32766 
13055 FOR 11=2 TO HBV 
1306.0 X=CL.AST< 11 > 

13070 OTO=OTOCI1> 

13080 FOR 12=11-1 TO 0 STEP -1 

13080 IF X>CLRSTC12> 

THEH CLASTC 12+1 >=CLASTC 12 > = O 
TOC 12+1 >=OTOC 12 > EI..SE CLASTC 12+1 >=X = OTOC 
12+1>=OTO ! 12=0 
13180 HEXT 12 

13200 HEXT II 

13300 GOTO 10015 ; **NÛUVERU TOUR 

29999 LOCRTE0.0,0=EHD 

30000 '*■ SOUS-PROGRAMMES ******** 

30099 •■* 

30100 •■* SP RFFICH AUTOS ELIMINEES 

30101 •'* 

30110 LOCRTE 11+«T I -1. >@2,8+C < T -1 >M002 >, 8 

30120 COLOR COULCI>,10 

30130 PRIHT GR«3>i 

30140 HBTCI>=0 «NOCACI>=0 = PSTDCI>=0 

30190 RETURH 

30200 '* SP EFFRC ZONE MSG 

30201 ■’* 

30210 COLOR,10 
30220 LOCRTE 19,14,0= 

30230 PRIHT " 

30240 LOCRTE 19,15,0= 

30250 PRIHT " " ; 

30260 LOCRTE 19,16,0= 

30270 PRIHT " »; 

30280 RETURH 

30299 '* 

30300 '*■ SP EFFRC ZONE VD 

30301 •'* 

30310 COLOR 0,10 

30320 LOCRTE 27,12,8 = PR I HT 11 " ; 

30330 COLOR 0.10 

30340 LOCRTE 38, 12,0 = PRIHT" " 

30380 RETURH 

30399 '* 

30400 '* SP RFFIC ZOHE VD 

30401 '* 

30410 COLOR 0,10 

30420 LOCRTE 38,12,0 = PRIHT STR$C VD >; 
30430 RETURH 

30499 * * 

30500 **RECHERCH AUTO R JOUER QD RANG SU 

30510 FOR 1=1 TO HBV '* TYPE AUTO 

30520 IF RG(I>=9 THEH GOTO 30560 
30530 FOR K=1 TO HBV-EL = •’ *PLAC. AUTOS 
30540 IF RGCI>=K THEH OTOCK>=I = K=HBV~ 
EL 

30550 HEXT K 
30560 HEXT I 
30570 RETURH 

30600 '% TEMPORISRTIOH 
30610 FOR TEMPO=0 TO 499 
30620 D$=INKEY< 

30630 IF D$< >"" THEH TEMPO=5O0 
30640 HEXT TEMPO 
30650 RETURH 


32100 '* GRAPHISME DU DEPLACEMENT 
32105 IF FSTDCI>=1 THEH 32198 
32110 NCI=NGCR<I> 

32115 IF 8F ICHZCHCI>>=2 THEH XI = 1 ELSE X 

1=0 

32116 IF SF1CNZCHC1 >>=1 THEH YI =-1 ELSE 
Y1=0 ='* CORRECTION POUR PORTION PISTE 
32120 NCR=NOCRS 

32125 IF SF1 C HZC NCA > >=2 THEH XA=1 ELSE X 

R=0 

32126 IF SF1C HZC HCR > >=1 THEH YA=~1 ELSE 
YR=0 = ■'* CORRECTION POUR PORTION PISTE 
32130 COLOR,CCNCI> 

32140 LOCRTE X<NCI>+XI,Y<NCI>+YI,0 
32150 PR INT " 

32160 COLORCQULCI>,CCNCR > 

32170 LOCRTE XCNCR >+XR,Y<HCR>+YA,0 
32180 IF FELIMCI>=1 THEH PRIHT" "j=V=-l 
= GOTO 32198 

32190 IF FRCC< I >= 1 THEH PRIHT"*" ;. ELSE PR 
INT GR<<SF1<HZ< NCA>>>; 

32198 RETURH = •’* 32180,32105 

32199 '* 

32200 •’* DEPASS VIT LIMITE 

32201 ■’* 

32205 GOSUB 32100 

322 Ï0 GOSUB 30200 = •'*EFFMSG 

32215 COLOR 0,10 

32220 IF VA<I>-VL<HOCRS>~AVC1,0>=1 THEH 

FRCC<T >=FfiCC<I>+l = IF FRCC<I>>1 THEH GOSU 

B 36700 = GOTO 32225 ELSE. Vfl< I >==3 = V=V-2 = GO 

SUB 35500= GOTO 32230 

32223 GOSUB 35550 

32225 FELIMC I >=1 = EL==EL+1 = V=-l 

32230 HOCA<I>=HOCAS 

32240 GOSUB 32100 

32250 IF FELIMU>=1 THEH GOSUB 30100 
32260 GOSUB 30600 

32270 COLGR0,10 = IF V<1. THEH 32280 ELSE G 
OSUB 35250= '**IL. RESTE V A PARC. 

32280 RETURH 

32299 •'* 

32300 •■* COLLISION 

32301 •% 

32310 GOSUB 30200 

32320 IF V<=1 THEH FACC<I>=FACC<I>+l=IF 
FACCY I>>1 THEH GOSUB 36700 = GOTO 32332 EL 
SE GOSUB 35600=HOCAS=HGCA<I>=GOSUB 32180 
= VR<I>=3 = V=-1= GOTO 32390 

32321 'IF V<=1 THEH FRCC<I>=FACC<I>+l=IF 
FACC<I>>1 THEH GOSUB 36708=GOSUB 38608 

= GOTO 32335 ELSE GOSUB 35688= GOSUB 3060 
8 = HOCRS=NOCA<I> = GOSUB. 32100 = VR<I>=3 = V=-l 
= GOTO 32398 

32330 GOSUB 35658=GOSUB 30608 

32331 GOTO 32335 

32332 GOSUB 38600 

32335 FELIMC I >==1 = Vfi< I >=8 = EL=EL+1 = NOCAS=N 
OCA(I> = GOSUB 32100 = GOSUB 80100 = V=-1 
32348 FOR K 1 = 1 TO HBV-EL 
32350 IF COULYKl ><> COL THEH 32370 
32360 FRCCXKl >=FRCCCK1 >+l = IF F ACCT Kl »1 
THEH 13=1=I=K1=GOSUB 36788=GOSUB 38600=G 
OTO 32365 ELSE VACKl>=3=HOCAS=HOCfl<Kl>=I 
3=1 = 1=K1= GOSUB 32100 = 1 = 13 = HOCAS=NOCA<I> = 
K1=9 = V=-1= GOTO 32378 

32365 FELIM<K1>=1= VAC K1>=0 = EL=EL+1= HOCRS 
=HOCRCK1> = GOSUB 32100 = GOSUB 38100 = V=-1 = 
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Kl=9 : 1=13 

32370 NEXT Kl = '*-32350,32360 

32375 GOTO 32392 

32390 GOSUB 30600 

32392 GOTO 11970-■'-32320 HEXT V 

32499 

32500 '* ARRIVÉE 

32501 '% 

32510 CLT=CLT+1 
32520 CLT<I>=CLT 
32530 GOSUB 30200 
32535 COLOR O,19 

32540 IF CLT=1 THEH GOSUB 35799 EI...SE GOS 
IJ B 35750 

32550 COLOR,CC NOCRCI>> 

32560 LOCRTE XC NOCRCI> >,YCNOCRCI>>,9=PRI 

NT" 

32570 COLOR cm ILC I >, 10 

32580 LOCRTE Î3-CL.T, 19,0 = PR INT MID4CSTR* 

C CLT >, 2 ) 

32590 LOCRTE 13-CLT, 20,9 = F'RINT GR$C2>.= 
32592 FRRRC I >==1 =RR==AR+1 = GOSUB 30600 

32595 IF CLT=NBV-EL THEH GOSUB 30299«COL 
OR 0,10= GOSUB 36550=GOSUB 30699=CONSOLE 

9,24 = CLS = LOCRTE0,9,9 = END 

32596 V==-l 

32598 GOTO 12999 = ■' *NEXT K DU PR PR INC 

32599 '* 

32600 '% ACCES RU STAND 

32601 ■' * 

32605 GOSUB 32109 

32610 IF VRCI>>=5 THEN NOCRC I >==NOCRS = CÛL 

OR 0,10=IF V=9 THEN 32709 ELSE GOSUB 352 

50 = GOTO 32790 = ' RETURN 

32620 GOSUB 39209 

32630 rOLOR 0.10! GOSI IB 35800 

32640 D$=INKËY$ 

32650 IF 0$="" THEN 32649 

32669 IF D$<>"0" THEN GOSUB 35250= GOTO 
32700 

32670 IF D$=="0" THEH IF POINTC31*8+4,23* 

8+4 ) >0 THEN GOSUB 39200 = GOSUB 35850 = GOSU 
B 30690=GOTO 32709 ELSE LOCRTE 32,22,0=C 
OLOR,6 = PRINT" ";=LOCRTE 31,23,0 = COLOR CO 
IJLC I >, 7 = IF FRCCC I >=9 THEN PRINT 

GR4C 0 >; ELSE PR INT "*"; 

32680 FSTDC I >=1 = PSTDC I >==1 = V=-l = ■' * SI 

OK STD.SI STD OCCUP CONTINUE SINON EFF 
RIJTO RFF AUTO OU * DS STD 
32690 GOSUB 30200 
32700 RETURN = '*-32619,32669,32670 

■tj-p-pCJQ , ■)( 

32800 >% MVT AUTOS AU STD 

32801 '* 

32805 COLOR 0,10=GOSUB 36650 

32819 IF PSTDC î >==5 THEN VA( I >==4 = LOC 
RTE 8,23,9 = COLOR,7 = PR.INT" "; = GOTO 32830 

32820 GOTO 32999 

32830 FOR NOCRS1=35 TO 1 STEP -2 

32849 IF POIHTC < XC NOCRSI >+9 >*8+4,.. YC HOCRS 
I >*8+4 >< 0 THEN NOCRC I >==NOCRS I = HOCRS I =9 

32850 NEHT NOCRSI 

32860 COLOR COULCI>,CCNOCRCI> > 

32870 LOCRTE XCHOCACI> >+@,YC NOCRCI> >,9 

32889 PR INT GR$C0>; =FOR F=1 TO 790 = NEXT 
32885 IF HBTCI>=NTC THEN IF NOCRCI>>=26 
THEH 32509 = * * ARRIVEE 

32890 PSTDC I >==0 = FSTDC I >==0 = G0TO 33500 


32900 IF PSTDC I >==2 THEN PSTDC I > 

=3 = FOR IJ==0 TO 4 = LOCRTE 27-U, 23, @ = COLOR, 7 
= PR I HT" "= LOCRTE 26-U, 23, 0 = COLOR COULC I 
>, 7 = IF FRCCC ï >==0 THEN F'RINT GR$C 0 >; = GOTO 
32920 ELSE PR INT"*"-; =GOTO 32929 
32910 GOTO 32970 

32920 FOR U 1=0 TO 100 = HEXT LU = HEXT IJ = GOT 
0 33500 

32970 IF PSTDCI>=3 THEN FRCCCI> 

=0 = FOR J==0 TO 3 = NBRC I, J >==4 = HEXT . I = GOTO 
33900 

32990 GOTO 33080 
33000 LOCRTE 22,23,9 
33010 COLOR ,7 = PRINT" ": 

33920 LOCRTE 15.'. 23,0 
33030 COLOR COULCI>,7 
33049 F'RINT GRTC 9 > = 

33945 GOSUB 10100=- 1 RFF I CH NLES RËSERV 

33059 PSTDCI>=4 

33955 FOR U1=0 TO 209 =HEXT LU 

33960 GOTO 33500 

33080 IF PSTDC I >.==1 THEH PSTDC I > 

=2 = FOR IJ=0 TO 3 = LOCRTE 31 -IJ , 23,9 = Cm OR , ? 
= PR I NT " " ; = LOCftTE 30-U, 23,9 = COL OR COI U..C T 
>,7 =IF FRCCCI>=0 THEN PRINT GR$C0>; =GOTO 
33085 ELSE F'RINT"*" ; = GOTO 33085 
33082 GOTO 33090 

33085 FOR U 1=9 TO 190 = HEXT LU = -HEXT 11= GA 
TO 33500 

33090 IF PSTDCI>=4 THEN PSTDCI> 

==5 = F0R U=0 TO 6 = LOCRTE 15-IJ, 23.0 = f:ri| np . 7 
= PR'INT" " ; = LOCRTE 14-U, 23,9 = COLOR COULC I 
>,7 = F'RINT CR$C0>; = FOR IJ 1=9 TO 199 = HEXT 
U1 = NEXT IJ 

33500 GOTO 12990='* NEXT K --33960,32 

929,32899,33985 
33999 '* 

34009 "* CASES A RISQUES 
34091 '% 

34019 GOSUB 30200 = C9L0R 0.10= GriP.HR 3595 
0= "*ATT CRS RSQ 

34020 GOSUB 39600 
34030 J== I NTC RND*4 > 

34049 C=INTC RND*10 > 

34050 IF C=0 THEN IF AVCÏ,J>==1 THEH GO 
SUB 36000 = GOTO 34400 ELSE 34960 ELSE 

34100= •■** C=9 AV ->1 ; GS 36990= RAS, 

GT 34060 RV ->1 ,34109 C<>9 

34060 NBRC I, J >=4 = RVC I, J >=1 = •' *-34059 

34070 ON J+l GOTO 34080,34085,34990,3409 
5 

34089 GOSUB 36059=GOTO 34499 
34085 GOSUB 36199=GOTO 34499 

34099 GOSUB 36150=GOTO 34409 
34095 GOSUB 36209 = GOTO 34499 

34100 IF RVC1,3 >—1 AND C<>9 THEH GOSUB 

36000 = GOTO 34400 = •' *-34059 

34105 IF RVC 1,3 >== 1 RND C=9 THEN IF JO 
3 THEN GOSUB 36900=GOTO 34490 ELSE 34160 
34110 IF RVC I, J >== 1 RND C< >9 THEH GOSUB 
36000=GOTO 34409 

34120 IF C=1 OR C=2 THEN GOSUB 36009=G 
OTO 34400 

34139 IF C=3 OR C==4 OR C=5 THEN NBRC I, 
J>=NBRCI,J>-l= GOSUB 34599 = GOTO 34409 
34149 IF C=6 OR C=7 OR C==8 THEN NBRC I, J 
>=NBPCI.. I >—2 = GOSUB 34509 = GOTO 34409 
34160 IF C==9 THEN IF RVCI,-J>=1 THEN RVC 
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I, J >=8 : GOSUB 30208 î GOSUB 36500 •• GOTO 3440 
0 ELSE NBR<ï,J >=NBR<ï,J >-3 = GOSUB 34509 
: GOTO 34400 

34400 GOSUB 10100 = GOSUB 30609= RETURN= ' t- 
-34080.. -85 .■ - 99 .• -95.. -100, -110, -1.20, -139 . 
-140,-169 
24499 •' T 

34500 '* BREF MSG CRS fi RS© 

34501 '•* 

34595 COLOR 0,10 

34510 IF NBR<I,.J»0 THEN GOSUB 36300=GO 

TO 24390 

34520 IF NBR<I,J>=0 THEN GOSUB 36359 = GO 
TO 34590 

34530 IF NBRCÏ, J>=~1 THEN FACC< I >«FACC< 
I >+l : IF FACC< I »1 THEN GOSUB 367.99 = GOSUB 
32225 ELSE VFK I )=3 = V=-1 1 GOSUB 36490= G 
Ofô 34599 

3453ï ' IF NBR<I » J>=-1 THEN FfiCCtI )=1= NB 
PC 1 , j -;,=0 ■ ',/fi(• l : GOSUB 36499 = GOTO 34599 

34549 ÎF NBR< I, JX-Î THEN FELI MC I)= 1 = NB 
PC I,J >=0 :v =~1 :GOSUB 36450 = GOSUB 30100 = EL 

=EL+Î 

34599 GOSUB 32199 = RETURN = ' :4=:—34519, -20 
,-30,-40 GSI0190 REAFF RSV 

34999 'X 

35000 ' X MESSAGES 
35901 'X 

35100 '* MSG OK VD 
35191 '# 

35119 LOCATE 19,14,9 

35115 FR INT " VITESSE DESIREE " 

35129 LOCATE 19,15,9 

35125 PRINT "ENREGISTREE = AVANCEZ !"; 

35139 LOCATE 19,16,0 

35135 PRINT " <ESPACE>=MEME PISTE " ; 

35140 RETURH 

35150 , X MSG A+ 

35151 '* 

35160 LOCATE 19,14,9 

35165 PRINT " TROP VITE ! 

35170 LOCATE 19,15,0 

35175 PRINT " VITESSE CORRIGEE 

35180 LOCATE 19,16,9 

35185 PR INT " AVANCEZ ! " ; 

35199 RETURN 

35200 'X MSG F- 

35201 ' X 

35210 LOCATE 19,14,0 
35215 PRINT "FREINAGE TROP BRUTAL!"; 
35220 LOCATE 19,15,0 
35225 PRINT " VITESSE CORRIGEE "; 
35230 LOCATE 19,16,9 
35235 PRINT " AVANCEZ ! 

35240 

35250 'X MSG RAP 

35251 'X 

35269 LOCATE 19,14,9 

35265 PR INT " IL RESTE 

35270 LOCATE 19,15,0 
35275 PRINT " ENCORE ";V;" 

35280 LOCATE 19,16,9 
35285 PRINT " A AVANCER 

35299 

35300 •' X MSG 2E CHG PISTE 

35301 'X 

35310 LOCATE 19,14,0 
35315 PRINT "DEPLACEMENT ILLICITE"; 


RETURN 

H . 

FOIS "; 

Il . 

RETURH 


35329 LOCATE 19,15,9 

35325 PRINT "2 EME CHANGT. DE VOIE"; 

35330 LOCATE 19,16,0 

35335 PRINT "ON RESTE SUR LA MEME!"; 


35349 RETURN 

35350 •' X MSG VOIT ACC V LIMITEE 

35351 ■' X 

3536.0 LOCATE 19,14,9 

35365 PRINT " VOTRE VOITURE EST "; 

35370 LOCATE 19,15,0 

35375 PRINT " ACCIDENTEE ! "; 

35380 LOCATE 19,16,9 

95385 PP î NT " VD EST LIMITEE ! "; 

35399 RETURN 

35509 ' X MSG VA >VL DE 1 

35501 'X 

35510 LOCATE 19,14,0 

25515 PRINT " UN PEU TROP VITE! "; 

35520 LOCATE 19,15,9 

35525 PRINT " SUSPENSION TOUCHEE "; 

cr et •***..“i 1 i***i r-r*. t rr -i Ci a .r ru 


35535 

PRINT " 

ALLURE MAX POSSIBLE 

O II . 

35549 

35550 

35551 

' * MS 
' X 

;G VA >VL. DE >1 

RETURN 

35569 

LOCATE 

19,14,9 


35565 

PRINT " 

BIEN TROP VITE! 

Il . 


35570 LOCATE 19,15,9 

35575 PRINT " VOITURE DETRUITE "; 

25580 LOCATE 19,16,0 

35585 PPINT " ELIMINATION "; 


35599 RETURN 

35690 'X MSG COLLISION V<~1 

35601 •' X 

35610 LOCATE 19,14,fi¬ 
sse 15 PRÏNT " ACCROCHAGE! "; 

35620 LOCATE 19,15,0 
35625 PRINT " VOITURE ENDOMMAGEE "; 

35639 LOCATE 19,16,0 

35635 PRÏNT "ALLURE MAX POSSIBLE. 3"; 

35640 RETURN 

35650 'X MSG COLLUSION V>1. 

35651 'X 

35660 LOCATE 19,14,9 

35665 PRINT " ACCIDENT FATAL "; 

35678 LOCATE 19,15,0 

35675 PRINT " VOUS = HORS COURSE 1 "; 

35630 ! OCATF 19.J6.fi 

35685 PRÏNT "L'AUTRE EST ENDOMMAGE"; 

35690 RETURN 

35700 'X MSG ARRIV 1 ER 


35701 

35719 LOCATE 19,14,0 

35715 PRÏNT "ARRIVEE DU VAINQUEUR!"; 

35729 LOCATE 19,15,0 

35725 PRINT " VOITURE DE L'ECURIE "; 

35730 L. OCATE 19, 16,9 = COL OR COUI..X I > 

35735 PRÏNT" " ; ECU$( ï >; = COL.OR 9 


35740 


RETURN 


35759 ' X MSG ARE IV X EME. 

35751 '* 

35769 LOCATE 19,14,0 

35765 PRINT " ARRIVEE DU";STR$<CLT<I>>; 
" EME" 

35779 LOCATE 19,15,9 

35775 PRINT " VOITURE DE L'ECURIE "; 

3578Ô LOCATE 19,16,0 = COLOR COUL< ï > 

35785 PR INT" " ; ECU$< î > ; = COL.OR 0 
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35790 

RETURN 

36170 

LOCflTE 

19,15,0 

35800 

■t MSG ENTREE RU STD ' 7 ' 

36175 

PRINT " 

FREINS SURRUISEANTS "; 

35801 

■' * 

36180 

LOCflTE 

19,16,0 

35810 

LOCflTE 19 14.0 

36185 

PAINT " 

<FREINAGE DE 2 EN 2)"; 

35815 

PRINT : LEZ-VOUS ENTRER "; 

36190 


RF Tl IRM 

35820 

1 nrflT^ i= g 

36200 

' % MS 

G BARAKA 

35825 

PR INT ' 9 VOTRE STRND ? " 

36201 

' % 


35830 

LOCflTE 19 16,0 

36210 

LOCflTE 

19,14,0 

35835 

PRINT 'OUI TAPEZ 0, SINON= N": 

36215 

PAINT " 

BIEN TENTE i " ; 

35840 

RETURN 

36220 

LOCflTE 

19,15,0 

35850 

■'t UEO ACCES STD OCCUPE 


PAINT "VOUS AVEZ LA BARAKA! "; 

35851 

'* 

36230 

LOCflTE 

19,16,0 

35860 

LOCflTE 19 14,0 

36235 

PRINT " 

RISQUES TRES LIMITES"; 

35865 

PRINT ACCES RU STAND OCCUPE"; 

36240 


RETURN 

35870 

lOCfiTE 19 ! r 0 

36300 

' t MS 

G ATTEINT RESERV 

35875 

PRINT AP p ET IMPOSSIBLE "; 

36301 

'* 


35880 

LOCflTE 19 16,0 

36310 

LOCflTE 

19,14,0 

35885 

PP.INT -”ENDRE TOUR SUIVANT"; 

36315 

PRINT " 

RESERVES DE TYPE : ";CHR$(2 

35890 

RETURN 

7 >+CHR*<64+J> 

;"T"; ! COLOR 0,10 

35900 

'* MSG MVT DS STAND ? 

36320 

LOCflTE 

19.15,0 

35901 

'# 

36325 

PAINT " 

ATTEINTES. MAIS IL EN"; 

35910 

LOCflTE 19 14,0 

36330 

LOCflTE 

19,16,0 

35915 

PRINT " MOUVEMENTS " : 

36335 

PAINT " 

RESTE ENCORE : ";NBRCI,J 

35920 

LOCflTE 19 :5•0 

> i 



35925 

PRINT DES VOITURES AUX "; 

36340 


RETURN 

35930 

LOCflTE 19 16,0 

36350 

' % MS 

G PLUS DE RESERV 

35935 

PRINT " STANDS "; 

36351 

' % 


35940 

RETURN 

36360 

LOCflTE 

19,14,0 

35950 

>% •' ,c : ARRIVEE SUR CASE R ISO 

36365 

PAINT " 

RESERVES DE TYPE’ ";CHR$(2 

35951 

•'* 

7 >+CHR3K64+JI 

;"T"i:COLOR 0.10 

35960 

LOCflTE 19 14.0 

36370 

LOCflTE 

19,15,0 

35965 

PR INT '"JS AVEZ PRIS 

36375 

PAINT « 

ANEANTIES ! "; 

35970 

! OCfiTE 1 ^ 1 5.0 

36390 


RETURN 

35975 

PAINT DES RISQUES "; 

36400 

't MSG LEGER DEP RESERV 

35980 

LOCflTE 19 16,0 

3640 î 

' X 


35985 

PRINT 1 ATTENTION ! " ; 

36410 

LOCflTE 

19,14,0 

35990 

RETURN 

36415 

PAINT " 

LEGER DEPASSEMENT DES"; 

36000 

MSG C EST BON 

36420 

LOCflTE 

19,15,0 

36001 

'* 

36425 

PRINT " 

RESERVES DE TYPE : ";CHR$<2 

36010 

LOCflTE 19 14.0 

7 >+CHR$< 64+.J 1 

;" t "; ^ COLOR 0,10 

36015 

PAINT " C'EST BON ! "; 

36430 

LOCflTE 

19,16,0 

36020 

! OCFITE 19 15.0 

36435 

PRINT " 

VOITURE ACCIDENTEE "; 

36025 

PAINT " p A3 D'INCIDENCE "; 

36440 


RETURN 

36030 

LOCflTE 19 16,0 

36450 

' t MS 

G FORT DEPflSS DES RESER 

36035 

PAINT 1 - - VOS RESERVES 1 

36451 

' t 


36040 

RETURN 

36460 

LOCflTE 

19,14,0 

36050 

't MSG AS VOLANT 

36465 

PAINT " 

FORT DEPASSEMENT DES"; 

36051 

'# 

36470 

LOCflTE 

19,15,0 

36060 

LOCflTE 19 140 

36475 

PAINT " 

RESERVES DISPONIBLES"; 

36065 

PRINT " BIEN TENTE 1 "; 

36480 

LOCflTE 

19.16.0 

36070 

LOCflTE 19 150 

36485 

PAINT " 

.VOITURE ELIMINEE " 

36075 

PAINT " - ÔlLfl AS DU VOLANT"; 

36490 


RETL'F • 

36080 

LOCflTE 19 16,0 

36500 

't MSG FIN flV I 

36085 

PAINT " f ITPSSE 1 JMTTF +1 N 

36501 

' * 


36090 

RETURN 

36510 

LOCflTE 

19,14,0 

36100 

'* MSG TURBO 

36515 

PRINT " 

PAS DE CHANCE 

36101 

'* 

36520 

LOCflTE 

19,15,0 

36110 

LOCflTE 19 14.0 

36525 

PRINT " 

VOI18 PFPDFZ VOTA F " ; 

36115 

PAINT " BIEN TENTE > t "; 

36530 

LOCflTE 

19,16,0 

36120 

LOCflTE 1 9 < c . 0 

36535 

PRINT " 

AVANTAGE DE TYPE ■ "+C.:F=5 - 

36125 

PAINT 11 T ppn SUPER RFC! F i 

HCHR$< 64+J >+CHR$< 127 >; 

36130 

LOCflTE 19 16,0 

36540 


RP T " 

36135 

PAINT " < ACCELERATIONS- +3 > "• 

36550 

' t MS 

G FIN 

36140 

RETURN 

36551 

' % 


36150 

' % MSG FREINS 

36560 

LOCflTE 

19,14,0 

36151 

' T 

36565 

PRINT " 

LA COURSE EST FINIE 

36160 

LOCflTE 19 14.0 

36570 

LOCflTE 

19,15,0 

36165 

PAINT " BIEN TENTE ! " 

36575 

PRINT " 

fl UNE PROCHAINE FOIS' 
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36580 LOCRTE 19,16,0 

36585 PRINT " flü REVOIR 1 " 

36590 RETURN 

36600 >t MSG ElN DU COUP 
36601’ •' * 

96610 ! OCATE 19,14,0 

36615 PRINT " FIN DU COUP 

36620 LOCATE 19,15,0 

36625 PRINT "QUE LE 1ER SE PREPARE": 

36630 LOCATE 19,16,0 

36635 PRINT " POUR LE COUP SUIVANT".: 

36640 RETURN 

36650 >t MSG MVT DS STD EN COURS 

36651 •' * 

36660 LOCATE 19,14,0 

36665 PRINT " LE DEPLACEMENT DE "; 

36670 LOCATE 20,15,0 

9667 e ; COLOP COU!./: I >: PRINT GR$< 0 >;= COLOR 
0.10:PRINT" QUI EST AUX STANDS": 

36680 LOCATE 19,16,0 

96685 PRINT " EST EN COURS "; 

36690 RETURN 

36700 '* MSG DOUBLE ACCIDENT 

36701 '* 

36710 LOCATE 21,14,0 

36715 COLOR COULX I > ; PRINT GRTX 0 ).: : COLOR0 
, 10 : PRINT " DEUXIEME ACCIDENT" .: 

36720 LOCATE 19,15,0 

36725 PRIAT "VOITURE INUTILISABLE"; 

36730 LOCATE 19,16,0 

36735 PRIAT " ABANDON 

36740 RETURN 

96750 >* MSG MPLiiS df rnwci IRRFNT 

36751 ’% 

36760 LOCATE 19,14,0 

36765 PRINT "FIN DE LA COURSE PAR"; 

36770 LOCATE 19,15,0 

36775 PRINT "L -1 ABANDON DE TOUS LES"; 

36780 LOCATE 19,16,0 

36785 PRIAT " CONCURRENTS ! ! ! "; 

36790 RETURN 

40000 '* 

40100 CLS 
40110 COLOR 4 

40198 ' * REGLE ( 6200O > OU JEU <. SUITE) ? 

40199 '* 

40200 LOCATE 0,9,0 

40210 PRINT "VOULEZ-VOUS VOIR LES PRINCI 
PES 'DU JEU ?" 

40220 PRIAT " SI DIJI TAF’P? ■’ 0'" 

40230 D*=INKEY* 

40240 IF D$="" THEN J=RND ; GOTO 40230 
40250 IF D$="0" THEN 62000 ELSE 42000 

41999 '* 

42000 '* CHOIX DES ECURIES 
420Ô1 't 

42010 CLS 

42015 LOCATE 7,5,0 

42020 PRINT "COMBIEN DE VOITURES EN COUR 
SE ?" ; 

42025 LOCATE 7,6.0 

42030 PRIAT "NOMBRE ENTRE 2 FT 8 ?" 

42035 D$=INKEY* 

42040 IF D$ THEN 42035 

42045 IF D$<"2" OR D*>"8" THEN 42018 

42048 EL=0 

42049 NBV=VAL<D$ ) 

42050 LOCATE 30,6,0 : PRINT"CHOIX =";NBV 


42055 LOCATE 4,8,0 

42058 PRINT "COMBIEN DE TOURS POUR CFTTF 
COURSE ?" ; 

42059 LOCATE 7,9,0 

42Ô60 PRIAT "NOMBRE ENTRE 1 ET 9 ?" 

42065 D*=INKEYi 

42070 IF 0$ ="" THEN 42065 

42075 IF D*X"1" OR D$>"9" THFN 42010 

42079 NTC=VALX DT> 

42080 LOCATE 30,9,0=PRINT"CHOIX =";NTC 
42085 EL=0 

42100 LOCATE 9,12,0 

42110 PRIAT "AFFECTATION DES VOITURES «" 
42120 LOCATE 10,14,0 

42130 PRINT "TAPEZ VOTRE SIGLE POUR"; 
42140 LOCATE 10,15,0 

42150 PRIAT "RATTACHER LA VOITURE A"; 
42160 LOCATE 10,16,0 

42170 PRINT "VOTRE ECURIE.<3 LETTRES V ; 
42180 LOCATE 10,17,0 

42190 PRINT "C > POUR PAS D'ECURIE"; 
42200 CONSOLE 19,24 
42210 CLS 

42220 PRIAT "VOITURE" 

42230 PRINT "ECURIE:" 

42240 PRINT"AVANTAGE" 

42500 ' 

42510 FOR I-i TO NBV 
42520 COLOR COIJLC I ■> 

42530 LOCATE 6+1*4,19,0 
42548 PRINT F1G$; 

42550 LOCATE 4+1*4,20,0 
42555 FOR E=1 TO 3 

42560 E$Œ>=INPUT$a X: IF E$(EX"R" OR E$ 
<E»"Z"THEN IF E$<E><>" "AND ES<EX>CHR* 
< 8 ) THEN 42560 

42562 PRINT E*(E);JF POS <4+1*4 THEN LO 
CATE 4+4*1,20,0 

42565 IF E$<E>=CHR*C8> THEN E=E-1* IF E<1 
THEN E=1 ; GOTO 42560 FI..SE GOTO 42560 

42567 NEXT E 

42568 ECU* 1 ' T >="" 

42578 FOR E~1 TO 3 : ECU$C I '>=ECI I '<+E$C F > 

: NEXT E 

42580 IF ECU$<I>=" " THEN FELTMCI>«1: 

RG< I >=9 : EL.-EL.+ 1 : GOTO 42660'■'** AUTO F!. 
IMINEE, EL FACTEUR POUR AJUST NBV 
42590 A=INT < RND*3 > 

42600 IF A< >0 THEN GOTO 42660 : ■' * 9=0 nr:TR 
01 D UN AVANTAGE 
42610 J=INT< RHDX4> 

42620 AV( I, ,J )-1 

42630 COLOR J 

42640 LOCATE 6+1*4,21,0 

42650 PRIHTCHRSX 127>; : ■’* AFFICH AVANTAG 

42660 NEXT I ' •' * —42.600,42580 

42670 FOR K=I TO 8 

42680 FELI MC K }= 1 : RG( K >=9 : •’ * EL IM AUTOS 
NON AFF. 

42690 NEXTK 

42710 LOCATE 8,23,8 = COLOR 1. 

42720 PRINT " POUR POURSUIVRE.TAF'FZ UNE 
TOUCHE..."; 

42730 D$=INKEY$ 

42740 IF D$="" THEN 42738 

43000 '* 

43001 '* DESSIN CIRCUIT 
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43002 't 

43010 COM3" E ' 2- 
43020 CLS 

43030 RESTEE - E?' 

43040 L=1 
43050 K=0 
43100 ATTPP ' '• 

43110 G02 1 = --•••'• 

43120 K=K+1 
43130 ATT^E .? : 

43140 00811= 

43150 K=K+1 

43200 IF K< 12 ”-8- 43100 ELSE 44200 
44000 '*8? 'E DU CIRCUIT —43X00 

44010 RE RD _ .' CCL? 

44015 IF CTL =-?r ~-EN 44100 
44020 C0LQ= E 
44040 LOCfTE V, 0 

44050 PRTN' r :-== ÎE- 
44060 \\2 f L =• 

44070 L=L+1 
44080 GOTO - - E 
44090 ' 

44108 RETU=-- 

44200 *t C D EE ? - r 2SE 140 

44210 X<0 " 0>=Y<140 >:NZ<0 ?=NZ<1 

40 ? = C< 0 ?=CC • • L ' 0 ?—VI < 140 ? 

44499 '* 

44500 ■'* A=='~- TEXTE DU CIRCUIT 

44501 * * 

44505 ATTPP '• ' 

44510 COLORl - 

44520 LOCflTE 2 El 0 = PR I HT" 5" 

44538 LOCRTE 1 21 0 = PRINT"6" 

44540 LOCRTE ? 6 0 PRINT"4"; 

44550 LOCRTE - - -' PRINT 11 5": 

44560 LOCRTE 12 1 ?,0 : PRINT"3 " 

44570 LOCRTE 13.12,0 = PR I HT " 4 " .; 

44580 LOCRTE 9 3 • 0 = PR INT "3 11 ; 

44590 LOCRTE ? 7 O=PRINT"4"; 

44600 I OCRTE17 '6.O = PRINT"5"; 

44610 LOCRTE 16 !” 0 = PR INT "6" 

44620 L0CRTE39 18,0 = PRINT"4" 

44630 L0CATE38 1? 0=PRINT"3"; 

44640 LOCRTE 3? 22•0 = COLOR,6 = PRINT "S"; 
44650 LOCRTE 12 20 0=COLOR 0,10=RTTRB 1, 
0= PRINT GR$< 4 ) RTTRB 0,0 
44700 •** 3TRn r ’° 

44710 LOCRTE 6 23.0=COLOR 1,7 

44720 PRINT" STRND8 "; 

44999 't 

45000 '* INITIRLISRTIONS 

45001 '* 

45809 't HP RESERVES PRR RIJTO,PAR TYPE 
450Î0 FOR H=0 T0 NBV = FOR M»0 TO 3 = HBRX N, 
H ?=4 = NEXT = NEXT 

45509 't VITESSES RUTORISEES 

45510 FOR N=0 TO 139 = VLX N ?=9 = NEXT N 
45520 VLX 38 >=5 

45530 VL<39>=6 
45540 VL< 58 >=4 
45550 VLC 59?=5 
45560 VL<84?=3 
45570 VLX 85 ?=4 
45530 VLC 99 >=3 
45590 VLC 94>=4 
45600 VLC114 ?=5 
45610 VLX115 ?=€ 


45620 VLC138 >~4 
45630 VLC139 >=3 

46000 TEXTE RCCONPRGNRNT LE JEU" 

46010 COLOR 1,10 

46020 LOCRTE 19,4,0 

46030 PRINT "VOITURE R JOUER 

46040 LOCRTE 19,6,0 

46050 PRINT "AVANTAGES"; 

46060 LOCRTE 19.7.0 

46070 PR INT "POSSEDES = S+ R+ F- 0~".i 

46030 LOCRTE 19,9,0 

46090 PRINT "RESERVF9="; 

46100 LOCflTE 19,11,0 
46110 PR I NT " VITESSES = " 

46120 LOCRTE 19,12,0 

46130 PR INT "ACTUELLE , DESIREE".! 

49999 *t 

50000 'TDEBUT DU JEU= GRILLE DE DEPART 

50001 '* 

50010 LOCRTE 22,15,0 
50020 COLOR 1.10 
50030 RTTRB 1,1 
50040 PR INT "DEPART ! ".s 
50100 RTTRB 0,0 

50110 L=0 = ■' % NB AUTOS EL IM 

50120 FOR K-l TO 3 
50130 I = IHTCRHD*8?+1 

58140 IF Vfl( I ?=4 THEN 50130= ■' TP L Fl CE RFFE 

CTEE SUR GRILLE OU ELIMINEE 

50200 't RFFICH AUTOS ELIMINEES 

50220 IF FELIM C I ?= 1 THEN GOSUB 30100 = 1..-- 

L+l= RGCI?=9 = GOTO 50300 

50250 LOCRTE 14+K-L, 22-C C K-L. ? MOD 2?,0 

50260 COLOR COULX I >, -C POINT':' P0ST8+4 , r:8R! 

IHT3+4 ?+l? 

50270 PR INT GR$X0>; 

50280 HOC ACI?=25-K+L 
50290 RGC I >=K-L. 

50300 VflCI?==4 

50310 NEXT K 

5040Ô LOCRTE 22,15,0 

50410 COI OR 1 .10 

50420 RTTRB 1,1 

50430 PR I NT " ".i 

50440 RTTRB 0,0 

59999 GOTO 10000='TDEBUT DE JEU= DEPART 

60000 't 

600î0 't DIM ET DRTR<62.000? 

60020 't 

6Ô025 DEFINT R-Z 

60030 DIM X< 141 “?, Y< 141 >, CC 141 >, NZC 141. ?, V 
LC141?='** X,Y,COLOR DE LA CASE,HO DE ZO 
NE R LAQUELLE ELLE APPARTIENT, VITESSE L.I 
MITE AUTORISEE SUR LA CASE 
60040 DIM SF1C11 ? ■ NÜCflFC 1 , 1.1 ?. NOCRD< 1,11 
? ='tTSEHS DE Fl SELON ZONE,NO CASE FIN E 
T DEBUT DE ZONE 

60050 DIM COULC 9 ?, ECU$C 9 ?, VAC 9 ) = ' tt COUL¬ 
EUR, ECURIE, VITES. ACTUELLE DE CHAQ AUTO 
60060 DIM NQCA< 9 ?, RGC 9 ?, NBTC 9 > = ■' T T TNG 

DE CASE , RANG ET NB DE TOURS EFFECTUE 
S PRR L AUTO 9 

60070 DIM FF! IMC 9 ? , FRCCX 9 ?, FRRRC 9 ?, F8TDC 
9?,PSTDC9? ='** INDICATEURS DE ELIMINAT10 
N, RCC I DENT, RRRIVEE, ENTREE RIJ STAND, POSIT 
ION DANS LE STAND 

60080 DIM NBRC9,4?.RVC9,4?='NB DE RE¬ 
SERVES ET RVRNTRG DE TYPE 4 DE L RIJTO 9 
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60100 ' 

*** AUTRES VARIABLES ***** 

2,5,7,13,6,11,14,5,14,15,6,7,16,5,11, 0,0 

I INDICE DES AUTOS BLEUE, ROUGE. . . 

, -99 

J - 

- TYPES DE RESERVES ET AV 

61300 '*• CASES DE ZONE 9 

V - 


£ 1 PiPTft 1 |C C; ^ . 1 -7 Q Q . 1 Æ 1 CA Q 

!... - 


17,11,14,16,12,7,17,13,11,16,14,14,17,15 

"7 — 

- -ZONES 

.7,16,16,11,17,17,7•16.18.7.0.0.-99 

60110 

*** D$ CARACT SAISI AU CLAVIER 

61310 '* CASES DE ZONE 10 

NOCAS NO CASE SOUHAITEE=CELLE RESUL 

61314 DATA 16,19,6,17,18, 11,13, 1.9,14, 19, 

TANT DU 

DEP! ACEMENT INDIQUE 

18,7,20,19,11,21,13,14,22,19,7,23,13,11, 

EL. 

NB DE VOITURES ELIMINEES 

24, 19,14,25,18, 6,26,1.9, 6,27, 18,9,28, 19,9 

N BV 

NB DE VOIT. EN COURSE. RU DEPART 

,29,18,9,30,19,9,31,18,7,32,19,11,33,18, 

CLT 

ARRIVER 

CLASSEMENT DE LA F'ROCH AUTO A A 

6,34,19,6,35, 18,9,36,1.9,14,37,18,7,0,0,- 
99 

60120 •' 

**** VD VITESS DESIREE POUR F'ROCH 

61320 '* CASES DF ZONE 11 

COUP A 

JOUER 

61324 DATA 39,19,7,38,20,7,39,21,6,0,0,- 

DV= 

VD-VflC T ) ROI IR .JUGER DES ACCELERAT 

99 

IONS ET 

DES FREINAGES 

61400 •'TORSES SPEC„ DE DEB ET FIN ZONE 

FFT 

J. HD IC DE FIN DE TOUR 

61410 DATA 2,33,1,39,41,53,40,54,56,58,5 

COL 

COULEUR D UN POINT DE NOCAS >0 !... 

5,59,61,71,60,70,72,78,73,77,79,85,80,84 

A CASE 

EST OCCUP 

,86.33.87.89,91,93.90.94,96,102,95,103,1 

61000 ' 

t DATA 

05,115, 104,114, lî.6,i.36, 1.1.7, 137, 139, 139,1 

61001 •’ 

* 

38.0 

61010 •’ 

* COU!./'. I > COULEURS DES AUTOS 

61420 RESTORE 61410 

6102O DATA O,1,2,3,4,5,15,12 

61430 FOR 2=0 TO 11. 

61030 FOR 1=1 TO 3 

61440 READ NOCADC0, 2 >,NOCAFC0,Z >,NOCADC 1 

61040 READ COULXI> 

, Z ), NOCAFC 1,2) 

61050 NENTI 

61450 NEXT Z 

61199 ■' 

* 

61500 '** SENS DES AUTOS PAR ZONE 

61200 ' 

* DATA DES CASES DU CIRCUIT 

61510 DATA 0,1,2,3,2,1,0,1,2,3,2,3 

61201 ' 

* 

61520 RESTORE 61510 

61210 

* CASES DE. ZONE 0 

61530 FOR 2=0 TO 11 

61211 •' 

* 

61M4A RF AD SF K ? 1' 

61214 DATA 38,22,9,37,21,9,36.22,9,35,21 

61550 NENT Z 

,A,24.??,9,33.21. 6 ,32,22.6.31,21,9.30•23 

61999 GOTO 40000 

, ci, ? q , g 

1,9,23,22,9,27,21,7,26,22,11,25,2 

62000 ' t REGLES DU JEU 

1,6,24.22,6,23,21,9,22,22,9,2 1 ,21 , 14 , 20 , 

6201.0 CL.S 

-10 , -y , -j q 

, 21,11 

62050 PRïNT 11 PRINCIPES DM IFN" 

61217 DATA 18,22,14,17,21,6,16,22,6,15,2 

62060 PRINT 

1,9,14, 

22 ,9, 13,21,7, 12 , 22 , 11 , 11 , 21 , 1 .4, 10 

62100 PRINT"COURSE DE TYPE Fl ENTRE DE 2 

,22,7,9 

,21,6,8,22,6,7,21,11,6,22,14,5,21 

A 8 AUTOS. LE CIRCUIT COMPORTE DES CASE 

,7,4,22 

, 11 , 3, 21 , 14 , 2 , 22 , 11 , 1 , 21 , 7, 0 , 22 ,7 

S CHIFFREES (VITESSE LIMITE AUTORISEE) E 

, 0 , 0 ,-99 

T DES CASES A PI SOI. IFS C CASES POSF SOI ITFN 

61220 •’ 

t CASES DE ZONE 1 

1 n. " 

61224 DATA 0,21,6,1,20, 6 ,0,1.9, 7, 1, 13, 11, 

62110 PRINT" AU DEPART CHAQUE CONCURRENT 

0,17,14 

,1,16,7,0,15,11,1,14,14,0,13,6, 1, 

DISPOSE DE RESERVES (4 DE 4 TYPES QUI V 

12,6,0,11,9,1,10,9,0,9,9,1,3,7,0,7,11,0, 

0, -99 

ONT LUI PERMETTRE DE FRANCHIR SANS DOMM 
AGE LES RIS-QUES NEGATIFS RENCONTRES).UN 

61230 ' 

* CASES DE ZONE 2 

LEGER DEPASSEMENT DES RESERVES PROVOQUE 

61234 DATA 0.5. 6 . 1 . 6 . 6 .2.5,9, 2 , 6 ,7.4.5.7 

UN DOMMAGE UN 2 EME OI..I UN FORT DFPASSFM 

,0,0,-99 

EUT CAUSENT" 

61240 •' 

t CASES DE ZONE 3 

62120 PRIHT " L ' ELIMINATION . " 

61244 DATA 5,7,11,4,3,14,5,9,7,4,10,11,5 

62140 PRINT" EN CAS DF DFPASSFMFNT DES V 

,11,6, 4 , 1 2 , 6 , 5 , 13 ,9, 4 ,1 4 ,9,5, 15 , 14 , 4 , 16 , 

ITESSES PER-MTSES TL Y A DOMMAGE OU EL. IM 

9,5,17, 

7,4, 18 , 1.1 . 0 , 0 , -99 

INATION . " 

61250 •' 

* CASES DE ZONE 4 

62150 PRINT" EN CAS DE COLLISION, LE TAM 

61254 DATA 5, 18,6,6, 17, 6 ,7, 1.8, 14, 8, 17,7, 

PONNEUR EST ENDOMMAGE ( FAIBLE ECART DE V 

9,13, 11. 

, 1.0 , 17,14 , 11 , 18,7 , 0 , 0 , -99 

ITESSE ) OU ELIMINE ( FORT ECART). DANS C 

61260 ' 

t CASES DE ZONE 5 

E CAS SEULE-MENT LE TAMPONNE EST ENDOMMA 

61 264 DATA 1 3 ,1 8 ,11,12,17,1 4 ,1 3 ,1 6 ,6,12, 

GE." 

15,6,13 

, 14,9,12,13,7,13,12,7,0.0,-99 

62160 PR INT" UN 2 EME DOMMAGE CAUSE !...•' E 

61270 •' 

i: CASES DE ZONE 6 

L IMINATION,, " 

6 1274 DATA 11 ,11,14, 1 0,12,7, 9 ,1 1 , 6 , 8 , 1 2 , 

62170 PRINT" POUR LA SUITE,TAPER UNE 

11 , 0 , 0 , 

-99 

TOUCHE": 

61280 ' 

* CASES DE ZONE 7 

62180 E*=INKEY*=IF E*="" THEN 62180 

61284 DATA 8 , 11 , 6 , 9 , 10 , 9 , 0 , 9 , 9 , 9 , 9 , 7 ,g ,7 

62190 CLS 

,7,0,0, 

-99 

62210 PRïNT"SAUF SI ON BENEFICIE D'UN AV 

61298 ' 

* CASES DE. ZONE 3 

ANTAGE PARTICULIER ON NE PEUT FAIRE VARÏ 

61294 DATA 8,5,11,9 , 6 , 6 , 10 , 5 , 6 , 11,6 , 14 , 1 

ER SA VITES-SE QUE D'UNE UNITE AU PUJS,E 
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H OUTRE ON HE PEUT CHANGEE QU'UNE FOIS 
DE VOIE PAR COUP." 

62220 PRINT" LES AVANTAGES " 

62230 PRINT"L'UN D'ENTRE EUX PEUT ETRE A 
TTRIBUE EN DEBUT DE PARTIE,SINON IL SON 
T DONNES AU COMPTE-GOUTTE LORS DU PASSAG 
E SUR LES CASES A RISQUE.ILS SONT QUATRE 
: 11 

62240 PRINT" LE NOIR CAS DU VOLANT) PERM 
ET DE PASSERLES VIRAGES A UNE VITESSE SU 
PERI ELIRE DE i A LA LIMITE INSCRITE" 

62250 PRINT" LE ROUGE CSUPER TURBO) RERM 
ET D'ACCELE-RER DE 3 EN 3 ET DE CHANGER 
PLUSIEURS FOIS DE VOIE CEN ACCELERAT10 
N). " 

62260 PAINT" LE VERT CFREINS SURPUISSANT 
S) PERMET DEFREÏNER DE 2 EN 2 ET DE CHAN 
GER DE VOIE PLUSIEURS FOIS CFM DFCFI frat 
ION )„ " 

62270 PAINT" LE JAUNE C BARAKA ) ANNULE PP 
ESQUE TOUS LES RISQUES NEGATIFS." 

62280 PRINT" POUR LA SUITE, TAPER UNE 

TOUCHE": 

62285 E$~INKEY$ : IF E$="" THEN 62285 
62290 CLS 


62300 PRINT" LES STANDS 

62310 PR INT" A CHAQUE PASSAGE SUR ! A CRS 

E 'S',SI LA VITESSE EST INFERIEURE'A 4 E 
T SI L'ACCESEST LIBRE,ON PEUT DECIDER DE 
PASSER AU STAND AU COURS DE L'ARRET !... 
ES AUTOS EN-DOMMAGEES SONT REPAREES.LFS 
RESERVES RE-CONSTITUEES." 

62320 PAINT" ARRIVEE 

62330 PRINT" LORSQUE LE DERNIER TOUR F8T 
FINI,L'OR- RIVEE EST .JUGEE Ail NIVFAII DU 
DRAPEAU A DAMIER." 

62340 PAINT" DIVERS" 

62350 PAINT" POUR POURSUIVRE APRES | ECTU 
RE D'UN MES-SAGE, TAPER UNE TOUCHE 01 l’Ü CO 
NOUE." 

62355 PRINT" POUR RESTER SUR LA MEME VOT 
E, TAPER UN ESPACE SINON UNE TOUOHF Ql IF! 
CONQUE." 

62360 PAINT" ATTENTION! VD CVITESSE DESI 
REE) EST LI-MITEE A 9." 

62370 PRINT" POUR LA SUITE,TAPER UNE 

TOUCHE": 

62380 E$=INKEV$ : !F E$="" THEN 62380 

62390 CLS 

62999 GOTO 4200A 


GAMME THOMSON 

MUSIQUE 

Vous aimez la musique mais êtes-vous certain 
de bien la connaître ? Ce programme éducatif propose 
des dictées musicales ainsi qu'une option 
dont nous vous laissons la surprise... 


10 ' ///////////////////////////X//////// 

20 ' /////////✓'MUS I QUE////’/////////////// 
30 ' / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
40 ' ////////////Par//D-?.v i d//TO ILLON/C c )/ 
50 ' //////////////////////////////////// 
60 '///////////////////////////01/07/87/ 
70 '//////////////////////////////////// 
80 CLS : SCREEN0,A,0 

90 LOCATE 10,2:COLOR15 :ATTRB1,1* PRIHT"* 
MUSIQUE *" •' ATTRB0,0 

100 L0CATE5,10: C0L0R7,4 ATTRB0, 1 : PR I NT " 1 
.Le Jeu. ?" ; 

11 0 L0CATE5 , 13 : C0L0R7 ,4 : PR I NT" 2 . Chansons 
?" > 

120 L0CATE5,16:C0L0R7,4 : PRIHT"3.ExPlicat 
ions ?" ;:flTTRB0,0 

121 CIRCLEC200,100 )2A,15,4 

122 LINEC 220,100 )-C220,50 ),4 

123 CIRCLEFC250,130 )20,15,6 

124 LINEC 270,130 )-C 270 , 80 ) , 6 

■ 130 L0CATE8,23 :C0L0R6: PRIHT"VOTRE CHOIX 
: 11 • 

135 PLAY"A0T5O4L12PL6MID003S0MIDOMIL12LA 
L6MIL30SOO4L12PL6MI D003L.6S0M I DOM IL12SÜ04 
L6D003S104L24D0 " : PLAY " L. 12PS0L6LAL12S0L6M 
IL12S0MI03L2430LA04L12PS0L6LAL12S0L6MIL1 


2S0M103S004L6D003S104L24D0L.48P03L 12S0L6S 
OSOL12LAbL24S0L12S004L12D0" 

140 REP$=ÏNPIJT$C 1 ) 

150 IF REP$="1"THEN 200 
160 IF REP$="2"THEH 2840 
170 IF REP$="3"THEN 2930 
180 SCREEN0,0,0 

190 ' ********* 1 ere Mus i 4 ue************* 
200 CLS:SCREEN0/0,0 :C0L0R6*LOCATE10,2 : AT 
TRB0,1 : PRINT"Ecoutez 1a Partition":ATTRB 
0,0 

210 PLAY"SIREDOFALASO" 

220 CLS : LOCATE 1,20 : C0L0R7 : PR I NT " Vou.l ez-v 
ous ecouter la partion une nouvelle 

fois CO/N) ?".: 

230 REP$=INPUT$C1 ) 

240 IF REPS ="0"THEN200 
250 IF REP$="N"THEN260 
260 CLS:C0L0R3 

270 L0CATE2,6 ; PR I HT " 1 : DO RE MI SO F Fl L 
A" 

280 L0CATE2,8 ! PRINT"2 = DO RE FA SO MI R 
E" 

290 LÜCATE2,10=PAINT"3 : SI RE DO FA LA 
SO" 

300 L0CATE2,12 : PRINT"4 : LA RE DO SI. FA 
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Lfl" 

310 L0CATE2, 14* PR INT "5 = MI MI SO FFl Lfl 
RE" 

320 LÜCflTE 1 .• 20 = C0LDR7 : PR I HT " Que 11 e est 1 
a bonne Parti tien ?"; 

330 REP$-IHPUT$<1> 

340 IF REP$="1"THEH400 

350 IF P.EP$= "2"THEN400 

360 IF REP*«"3"THEN 500 

370 IF REP* 3 "4"THEH400 

380 IF REP*="5"THEN400 

390 REP$==INPUT*< 1 > ! F'RINT REP$ 

400 CLS = COLOR1= LOCflTÊ 10 .• 5 = flTTRB 1,1 » PR I NT 
"FAUX"=flTTRB©,0 * PLAY"SISISISISISI" 

410 L0CATE2,12=C0L0R2=PRINT"La bonne reP 
onse était la 3" 

420 LQCATE1,17=C0L0R7=PRIHT"1.Une autre 
Partie ?"; 

430 LOCflTE 1,19 = C0L0R7 = PR I NT " 2. Retour a 1. 
a Pa 9e entete ?" ; 

440 LOCflTE1,21=CQL0R7=PRINT"3.Arrêt du J 
eu ? " i 

450 L0CATE5,23 = C0L0R4 = PRINT"VOTRE CHOIX 
: 11 ; 

460 REP*=INPUT$<1> 

470 IF REP*-"1"THEN520 

480 IF REP$="2"THEN 80 

490 IF REP**"3"THEN RESET 

500 CLS = COLOR 1 = LOCATE10,5 = flTTRB 1.. 1 = F'RINT 

"BRAVO"«ATTRB0,@=PLAY"DORE"=GOTO410 

510 * ' eme Mus i 4 ue***##******#* 

520 CLS = C0L0R6 = LOCATE10,2 = ATTRB0,1=PRINT 

"Ecoutez la P artition"= ATTRB0,0 

530 PLAY"LAFASODODOSOLAFA" 

540 CLS = LOCATE 1,20 = C0L.0R7 = FRI NT " Vou 1 ez-v 
eus ecouter la Partion une nouvelle 

fois <0/N> ?"; 

550 REP**INPUT«1 > 

560 IF REP$=="O"THEN520 
570 IF REP* =="N"THEN580 
5A0 CLS = COLOR3 

590 L0CATE2,6 = PRINT"1 = LA FA RE DO SI L 
A RE DO" 

600 L0CATE2 .• 8 = PR I NT" 2 = LA FA SO DO DO S 
0 LA FA" 

610 L0CATE2,10 = PRINT"3 = SI SO LA RE MI 
MO RE DO" 

620 L0CATE2,12 = PRINT"4 = RE MI RE DO SI 
RE DO LA" 

630 L0CATE2,14 = PR INT "5 = SI RE SO FA LFI 
RE MI DO" 

640 LOCATE1,20 = COLOR7 = PRINT"Quelie est 1 
a bonne Partition ?".; 

650 REP*=INPUT*<1> 

660 IF REP*="1"THEN72Q 
670 IF REP*=="2"THEN730 
680 IF REP$=="3"THEN720 
690 IF REP*="4"THEN720 
700 IF REP*="5"THEN720 
710 REP*=INPUT$< 1 > = F'RINT REF'* 

720 CLS = COLOR1= LOCATE10,5 = flTTRB1,1= PRI NT 
"FAUX"= ATTRB0,0 = PLAY"SISISISISISI"=G0T07 
40 

730 CLS = COLOR 1 = LOCATE 10,5 = FlTTRB 1,1= PR I NT 
"BRAVO"= ATTRB0,0 = PLAY"DORE" 

740 L0CATE2,12 = C0L0R2 = PRINT"La bonne reP 
onse était la 2" 

750 LOCATE1,17 = C0L0R7 = PRIHT"1.Une autre 


Partie ?".; 

760 LOCATE1,19 = C0L0R7 = PRINT"2.Retour a 1 
a Pa9e entete ?"r 

770 LOCflTE1,21= C0L0R7 = PRINT"3.Arrêt du J 
eu. ?" i 

780 L0CATE5,23 = C0L0R4 = PRINT"VOTRE CHOIX 
: 11 * 

790 REP*==INPUT*<1> 

800 IF REP*="1"THEN840 

810 IF REP*== "2"THEH80 

320 IF REP*="3"THEH RESET 

830 ' M ij. s- i 4 u e 1 **1 * 1t % % *t :=!=: 

840 CLS = C0L0R6 = LOCATE 10,2 = ATTRB0, 1 = F'R I NT 

"Ecoutez 1a P artition" = ATTRB0,0 

350 PLAY"REMIDOLAFASOREREMIDOLA" 

860 CLS = LOCATE 1,20 = C0L0R7 = PR I NT " Vou. 1 ez-v 
ou.s ecouter la P art ion une nouvelle 

fois <0/N> ?" ; 

370 REP$=INF'UT*< 1 ) 

380 IF REP*=="O"THEN840 
890 IF REP*=="N"THEN900 
900 CLS = C0LQR3 

910 L0CATE2,6 = PR INT" 1 = Lfl RE DO SI FFl S 
0 RE RE LA MI DO" 

920 LQCATE2,8 = F'RINT"2 = LA RE DO MI SO R 
E DO MI RE LA FA" 

930 LQCATE2,10 = PRINT"3 = SI DO RE MI Lfl 
MI MI RE DO Lfl MI" 

940 L0CATE2,12=PRINT"4 = Lfl MI DO DO RE 
SO SO RE LA FA RE" 

950 L0CATE2, 14 = PR INT "5 = RE MI DO LFI FFl 
SO RE RE MI DO Lfl" 

960 LOCATE 1,20 = C0L0R7 = F'RINT "Quel le est 1 
a bonne Partition ?"; 

930 REP*==INPUT$<1) 

990 IF REP*="1"THEN1050 
1000 IF REP* 3 "2"THEN1050 
1010 IF REP$="3"THEN1050 
1020 IF REP$="4"THEN1050 
1030 IF REF‘*== "5"THEN1060 
1040 REP* 3 INPUT$< 1 > = F'R INT REP* 

1050 CLS = COLOR 1 = LOCATE 10,5 = FlTTRB 1,1= F'R IN 
T"FAUX"= ATTRB0,0 = PLAY"SISISISISISI"= GOTO 
1070 __ 

1060 CLS = COLOR 1 = LOCATE 10,5 = flTTRB 1,1= F'R IN 
T"BRAVO"= ATTRB0,0 = PLAY"DORE"= GOTO 1070 
1070 L0CATE2,12 = C0L0R2 = PRINT"La bonne r e 
Ponse était la 5" 

1030 LOCATE 1,17 = C0L0R7 = F'R I NT " 1. Une autre 
Partie ?".; 

1090 LOCATE1,19 = C0L0R7 = PRINT"2.Retour a 
la Pa.9e ’entete ?"; 

1100 LOCATE 1,21= C0L0R7 = F'R I NT " 3. flrr e t du. 
Jeu ?".; 

1110 L0CATE5,23 = C0L0R4 = F'RI NT " VOTRE CHO IX 

: 11 * 

1120 REP*=INF'UT*< 1 > 

1130 IF REP* 3 "1"THEN1170 

1140 IF REP*=="2"THEN 80 

1150 IF REP*=="3"THEN RESET 

1160 ' *:m*:m4eme Mus i q ue#******#***#* 

1170 CLS = C0L0R6 = LOCATE 10,2 = ATTRB8, 1 = F'R IN 
T"Ecoutez 1a P artition"= ATTRBO,0 
1180 PLAY " SIREDOLAMIREDOLAREDOSIMI FFlLfl " 

1190 CLS = LOCATE 1,20 = COLOR7 = F'R I NT " Vou 1 ez- 
vous ecouter la Partion une nouvel! 

e fois ( n/N ■' = 

1208 REP*=INPUT*a > 
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1210 IF REP*="O"THEN1170 
1220 IF REP*=“N 11 THEH1230 
1230 CLS ; CÜL0R3 

1240 L0CATE2, 4 : PR INT" 1 = LF! MI DO LFl MI 
RE DO LR RE DO SI FR LFl FR" 

1250 L0CATE2,7=PRINT"2 * SI RE DO LFl MI 
RE DO LR RE DO SI MI F Fl LR" 

1260 L0CRTE2, 10 = PR INT" 3 = SI L.R RE DO RE 
FR LR SO MI RE MI RE DO LR" 

1270 L0CRTE2,13 : PRINT"4 * SI RE DO LR MI 
DO SI MI RE LR FR LR FR RE" 

1280 LQCRTE2,16 PRINT"5 = SI RE LR FR RE 
DO MI DO MI LR RE RE DO LR " 

1290 LOCRTE1,20 = COLOR7 = PR I HT " Que 1.1 e est 
la b orme partition ?" ; 

1300 REP*=INPUT*<1> 

1310 IF REP$="1"THEN1370 
1320 IF REPS»"2"THEN1380 
1330 IF REP*»"3"THEN1378 
1340 IF REP*="4"THEH1370 
1350 IF REP*="5"THEN1370 
1360 REP*=IHPUT$<1>=PRIHT REP* 

1370 CLS=COLOR1=LOCRTE10,5*RTTRB1,1 ! PRIH 
T"FAUX"'RTTRB0,0 : PLRY"SISISISISISI"=GOTO 
1330 

1380 CLS «COLOR1=LOCRTE10,5 = RTTRB1,1= PRIH 
T"BRAVO"= ATTRB0,0 = PLAY"DORE" 

1390 L0CATE2,12 = C0L0R2 = PRI HT "La bonne i-e 
Ponse était la 2" 

1400 LOCRTE1,17 = C0L0R7 = PRIHT"1.Une autre 
Partie ?"; 

1410 LOCRTE1,19 = C0L0R7 = PRIHT"2.Retour a 
la Pa9e entete ?" ; 

1420 LOCRTE1,21=C0L0R7 = PRIHT"3,Arrêt du 
•jeu. ?" ; 

1430 L0CRTE5,23 = C0L0R4 = PRIHT"VOTRE CHOIX 
: ; 

1440 REP*=IHPUT$<1> 

1450 IF REP*="1"THEH1490 

1460 IF REP$="2"THEH 80 

1470 IF REP*="3"THEH RESET 

1480 ' **:**:m*5eDie Mus i q ue**#********## 

1490 CLS = C0L0R6 = LOCRTE10,2 = RTTRBO,1= PRIH 
T " Ecoutez 1 a P art i t i on " = RTTP.B0,0 
1500 PLRY"DOLRFRREDODODOMIRELRFRREFRFR" 
1510 CLS = LOCRTE1,20 = C0L0R7 = PRIHT"Vou1ez~ 
vou.s ecouter la P art ion une nouvel 1 

e fois <0/H) ?"i 
1520 REP*=IHPUT*< 1 ) 

1530 IF REP*="O"THEH1490 
1540 IF REF'*= "H"THEH 1550 
1550 CLS = C0L0R3 

1560 L0CRTE2,6 = PRINT"1 = DO LR FR RE DO 
DO DO MI RE LR FR RE FR FFl" 

1570 L0CATE2,8 = PRIHT"2 = DO LR FR RE SO 
SO SO MI RE LR FR DO LR LR" 

1580 L0CRTE2,10=PRINT"3 = SI RE DO MI SI 
SI SI RE LR FR RE DO FR FR" 

1590 L0CRTE2,12 = PRIHT"4 = RE DO LR MI DO 
LR FR RE DO SI MI DO RE LR" 

1600 L0CATE2,14=PRINT"5 = DO LR RË DO DO 
DO DO MI SI LR RE DO LR LR" 

1610 LOCRTE1,20 = C0L0R7 = PRIHT"Que11e est 
la bonne Partition ?" ; 

1620 REP*=IHPIJT*< 1 > 

1630 IF REP*="1"THEH1700 
1640 IF REP*="2"THEN1690 
1650 IF REP$="3"THEN1690 


1660 IF REP*="4"THEH1690 
1670 IF REP*== "5"THEH 1690 
1680 REP$==INPUT*<1> = PRINT REP* 

1690 CLS = COLOR1= LOCRTE10,5 = RTTRB1,1= PRIH 
T"FAUX"= RTTRB0,0 = PLRY"SISISISISISI" = GOTO 
1710 

1700 CLS = COLOR1= LOCRTE10,5 = RTTRB1,1= PRIH 
T"BRRVO"= RTTRB0,0 = PLRY"DORE" 

1710 L0CRTE2,12 = C0L0R2 = PRIHT"La bonne re 
Pense était la 1" 

1720’LOCRTE1,17 = CQLQR7 = PRIHT"1.Une autre 
Partie ?" ; 

1730 LOCRTE1,19 = C0L0R7 = PRIHT"2.Retour a 
la pa.9e entete ?" ; 

1740 LOCRTE1,21= C0L0R7 = PRIHT"3.Rrret du 
jeu ?".: 

1750 L0CRTE5,23 = C0L0R4 = PRIHT"VOTRE CHOIX 
: " * 

1760 REP*==INPUT*<1> 

1770 IF REP*="1"THEH1810 

1780 IF REP*=="2"THEH 80 

1790 IF REP*="3"THEH RESET 

1800 ■'ttttttttGerhe Musique******^****** 

1810 CLS = C0L0R6 = LOCRTE10,2 = RTTRBO,1= PRIH 

T"Ecoutez 1a Partition"= RTTRBO,0 

1820 PLRY"REDOLRREMISIREDOLRREMIFRREDOLR• 

REDO" 

1830 CLS = LOCRTE1,20 = C0L0R7 = PRINT"VouIez- 
vous ecouter la Partion une nouvel 1 

e fois <040 ?" ; 

1840 REP*=IHPUT*<1> 

1850 IF REP*="0"THEH1810 
1860 IF REP* == "H"THEH 1870 
1870 CLS = C0L0R3 

1880 L0CRTE2,4 = PRIHT"1 = RE DO RE MI RE 
L.R FR RE DO SI RE MI LR DO SI MI RE" 

1890 LQCRTE2,7 = PRIHT"2 = RE DO LR RE MI 
SI RE DO LR RE MI FR RE DO LR RE DO" 

1900 L0CRTE2,10=PRIHT"3 = RE DO SI LR RE 
MI FR SO LR RE SO SI SI SO SO RE MI 
1910 L0CRTE2,13 = PRIHT"4 = RE DO SI MI FR 
SO LR RE FR SO MI SO RE DO LR FR MI" 
1920 L0CRTE2,16=PRIHT"5 = LR RE SO LR MI 
MI DO RE MI SO LR RE DO FR RE DO MI" 

1930 LOCRTE1,20 = C0L0R7 = PRINT"Que11e est 
la bonne Partition ?" » 

1940 REP*=INPUT*<1> 

1950 IF REP*== " 1 "THEN2010 
I960 IF REP*="2"THEH2020 
1970 IF REP*== "3"THEN2010 
1980 IF REP*== "4"THEH2010 
1990 IF REP*== "5"THEN2010 
2000 REP*=IHPIJTi< 1 )=PRIHT REP* 

2010 CLS = COLOR1= LOCRTE10,5 = RTTRB1,1=PRIH 
T"FAUX"= PLRY"SISISISISISI"=ATTRB0.0 = GOTO 
2030 

2020 CLS « COLOR1=LOCRTE10,5 = RTTRB1,1= PRIH 
T"BRAVO"=PLRY"DORE"=RTTRB0,0 
2030 LGCRTE2,12 = C0L0R2 = PRIHT"La bonne re 
Ponse était la 2" 

2040 LOCRTE1,17 = C0L0R7 = PRINT"1.Une autre 
Partie ?" ; 

2050 LOCRTE1,19 = C0L0R7 = PRIHT"2.Retour a 
la Pa9e entete ?"; 

2060 LOCRTE1,21=COLOR? = PRIHT"3.flrret du 
jeu. ?" 

2070 L0CRTE5,23 = C0L0R4 = PRIHT"VOTRE CHOIX 
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2080 REF'$=INPUT$<1> 

2530 L0CATE2,? = PRIHT"2 = RE MI DO LA RE 

2890 IF REP$=="1"THEH2130 

SI MI FR LA DO MI RE SO SO MI DO" 

2100 IF REP$=="2"THEH 80 

2540 L0CATE2,10 = PRIHT"3 = SI MI FR LR SO 

2110 IF REP$="3"THEH RESET 

MI FASO LA RE DO LR SO RE DO RE" 

2120 ' **#*****7erae Mus i «1 ue*#**#*****#*# 

2550 L0CATE2,13=PRIHT"4 = SI LA RE MI DO 

2130 CL S > C0L0R6 = LOCfiTE 10,2 > RTTRB0.. 1 = PR IH 

LA DO MI MI LA RE DO LR SO LFl MI" 

T " Ecoutez 1 a P ar t i t i oti " = FlTTRBO, 9 

2560 L0CATE2,16 = PRIHT"5 = LFl DO SI MI FR 

2140 PLflV"REDOSILRREMIFASQLAREDOSQSOSOSO 

RE DO MI SO FA LA RE SO SO MI Ffi" 

RE" 

2570 REP$=INPUT$<1> 

2150 CLS = LOCFITE 1,20 = C0L0R7 = PR I HT " Vou I ez- 

2580 IF REP$="1"THEM265Q 

vous e cou ter la P art. i on u ri e ti o u v e 11. 

2590 IF REP$=="2"THEN2640 

e fois < 0/H > T".i 

2600 IF REP$="3"THEH2640 

2160 REP$=IHPÜT$a > 

2610 IF REP$== "4"THEN2640 

2178 IF REPS="0"THEH2130 

2620 IF REP$== "5"THEH2640 

2180 IF REP$="H"THEH2190 

2630 REP$=IHPUT$( 1 ::■ = PRIHT REP* 

2199 CLS = rriLORS 

2640 CLS = COLOR1= LOCfiTE10,5 = flTTRB1,1= PRIH 

220Ô L0CRTE2,4 : PRIHT" 1 = RE DO SI. MI RE 

T " FAUX " = PLAY " SISISISISI SI " = FlTTRBO, 0 = GOTO 

LR 80 SO SO SO FR RE FR LFl MI RE" 

2660 

2210 L0CRTE2,7 : PRIHT"2 « RE MI SI DO LR 

2650 CLS = COLOR 1 = LOCfiTE 10,5 = FlTTRB 1. , 1 = PR IH 

FR FR FR FR RE RE DO SI SO MI DO" 

T "BRAVO" = FlTTRBO, 0 = PLAY "DORE" 

2220 L0CRTE2,10 : PRIHT"3 = RE DO SI LR RE 

2660 L0CATE2,12 = C0L0R2 = PRIHT » La bonne re 

MI FR SO LR RE DO SO SO SO SO RE" 

Pense était la 1" 

2230 L0CRTE2,13=PRIHT"4 * RE DO SI LR FR 

2670 LOCfiTE 1,17 = COLOR? = PR I HT " 1 „ F in ? " ■; 

RE DO MI RE LR FR RE SO SO SO SO " 

2680 LOCfiTE1,19 = COLOR? = PRIHT " 2.Retour a 

2240 L0CRTE2,16=PRIHT " 5 = LR RE SO LR MI 

1 a P a 9 e e n t e t e ?" > 

MI DO RE MI SO MI RE DO SI SI SI" 

2690 LOCfiTE1,21=COLOR? = PRIHT"3,Arrêt du 

2250 LOCfiTE 1 , 20 = C0L0R7 = PR I HT " Que 1.1 e est 

jeu ?"i 

la b orme Partition ?":• 

2700 REP$=IHPUT$<1 > 

2260 REP*«INPUT*<1 > 

2710 IF REP$="1"THEH2760 

2270 IF REP$=="1"THEH2330 

2720 IF REP$="2"THEH 80 

2280 IF REP$== " 2 " THEH2330 

2730 IF REP$="3"THEH RESET 

2290 IF REP$~"3"THEH2340 

2740 REP$==IHPUT3i(] 1 > 

2300 IF REP$= " 4 " THEH2330 

2750 •• *************f i n***************** 

2310 IF REP$= " 5 " THEH2330 

2760 CLS = SCREEH7,7,7 

2320 REP**IHPUT$< 1 >= PRIHT REF'$ 

2770 LOCfiTE 10,10 = C0L0R5 = FlTTRB 1 , 1 = PR I HT " 

2330 CLS = COLOR1 = LOCfiTE10,5 = flTTRB1 , 1 = PRIH 

F I H" = FlTTRBO,0 

T " FAUX "= PLRY " SISISISISISI" = RTTRB0 , 0 = GOTO 

2780 LOCfiTE1,17 = C0L0R2 = PRIHT " 1.Retour a 

2350 

la P a9e entete"; 

2340 CLS = COLOR 1 = LOCfiTE 10,5 = FlTTRB 1,1= PR IH 

2790 LOCfiTE 1,19 = C0L0R2 = PR I HT " 2. Flrret du 

T"BRAVO" = ATTRB0,0 

jeu ?"; 

2350 L0CATE2,12=C0L0R2 = PRIHT " La bonne re 

2800 L0CRTE5,23 = C0L.0R5 = PR I HT " VOTRE CHO IX 

Ponse était la 3" 

. Il . 

’ > 

2369 LOCfiTE1,17 = COLOR? = PRIHT " 1.Une autre 

2810 REP$=IHPUT$<1 > 

Partie 

2820 IF REF'$==" 1 "THEH80 

2370 LOCfiTE1,19 = COLOR? = PRIHT"2.Retour a 

2830 IF REP*="2"THEH RESET 

la Pa.9e ente te ?" i 

2840 ' ****#********#************:m** 

2380 LOCfiTE1,21=COLOR? = PRIHT"3.flrret du 

2850 't CHfiHSOHS * 

jeu ?".; 

2860 '*%t%X****t***t*****%ttt%**t**** 

2390 LÛCRTE5,23 = C0L0R4 = PRIHT"VOTRE CHOIX 

2870 CLS = SCREEHQ,0,0 

. fl . 

2880 LOCFITE 3,5 = COLOR? = FlTTRBO, 1 = PR I HT " I n 

2400 REPï==IHPUT$< 1 > 

serez la cassette de votre chanson Pr 

2410 IF REP$="1"THEH2450 

ef'eree dans le lecteur et appuyez sur fl. 

2420 IF REP$="2"THEH 80 

ECTURE>" 

2430 IF REP$=="3"THEH RESET 

2890 MOTOROH 

2440 ' *%%***%*&eme Mus i 4 ue**#*#**#*#*## 

2900 L0CATE5,20 = COLOR? = FlTTRBO, O = PR 1 HT " Po 

2450 CLS = C0L0R6 = LOCfiTE 10,2 = FlTTRBO, 1 = PR IH 

ur le retour a la P a.9e entete ta.Per <R 

T " Ecoutez 1 a P art i t i on " = FlTTRBO, O 

VII . 

/ f 

2460 PLR Y " SIMI FfiLRSOREDOLRM I DORESOSOL..FIS I 

2910 REP$=IHPUT$U I' 

DORE" 

2920 IF REP$=="R"THEH 80 

2470 CLS = LOCfiTE1,20 = COLOR? = BRIHT"Vou1ez- 

2930 

vous ecouter la Partion une nouvell 

2940 ’t EXPLICATIONS Y 

e fois <0/H> ?"i 

2950 ^ m^*^**#***m^m**:=lc:m^*-* 

2480 REP*=IHPUT*<1> 

2960 CLS = SCREEN0,0,0 

2490 IF REP$="0"THEH2450 

2970 LOCfiTE 10,3 = C0L0R5 = FlTTRB 1,1= PR I HT " E 

2500 IF REP$== "N 11 THEH2510 

XPLICATIONS" 

2510 CLS = C0L0R3 

2980 LOCFITE 2,6 = CQL0R2 = FlTTRBO, O = PR I HT " Ce 

2520 L0CATE2,4 = PRIHT" 1 = SI MI FF! LFl SO 

jeu consiste a ce 4ue vous retrouviez P 

RE DO LFl MI RE SO SO l_.Fl SI DO RE" 

armis 5 gammes de musilue laquelle est c 
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elle que vous ? .-ez entendue" 

2990 LOCATE 2 10 : C 0 LQR 3 : PRîNT"Pour- cela 
il faut bie * eccuter la rous-ique«Lo 

r-ç.que ce sera -'?•_* taPez CN>• et choisis, 
sez le nuroerc : : convient < 1 .s 2 ; 3 ; 4;5 

>" 

3000 LOCRTE 2 If : 0 LOR 4 : PR INT" 11 est inn 
utile de valide*' - - repense avec -CENTR 
ÊE>" 

3010 LOCRTE 2 20 - COLOR 1 , 5 ' PR I MT " RTTEWT 10 


N ! " 

3020 LOCRTE 2,22 : C0L0R6 ,0 : PR I NT " Les r = • : 
ns es se font toujours Par 1; 2; 3 a 4 a 5 et ~ 
; N" 

3030 PLAY"PPPPPPPPPPPPPPPPPPPPPPPPPPP C = - 
PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP” 
pppppppppppppppppppppppppppppppppppppc== 

PPPPPPPPPPPPP" 

3040 GOTO80 


TQ9 

POKER 

Retrouvez l'ambiance étouffante des tripots clandestins : 
paire, flush, brelan et autres suites sont présents. 
Mais attention, les tricheurs sont éliminés sans pitié. 


10 'LE 1er POKER ËE JOUANT SEUL ... 

20 CLERR,, 6 :C*-SOLE0 24 * CLS : SCREEH0,0.. 0 
30 DEFGRïCO =162 fi 168,17,50,76,140,27 
40 DEFGR$C5>=0,142, 145,145,145, 145, 142,0 
50 DEFSTRR DE-I'-'E Z F,H-R : DIMR< 52 >, BC 52 
>, QC 14 > 

60 CR=10 

70 IF FY<>0 THE'- =5ET <FX,FY>" " 

80 'mm PRESENTATION ******* 

90 RESTORE GOS JE"50 C=0=FT=0 
100 OHFL GOTO 20C 220 
110 RESTORE 

120 BOXFC 0,109 - 319 110),2 

130 'AFFICHAGE CEE DIFFERENTS GAINS POSS 

IBLES 

140 ATTRBO,0 = LO E-TE0,15‘C0L0R6,0=PRIHT"F 
LUCH ROYALE : 50? CHR$C124 >+"FLUCH : 200" 
;CHR$< 124); "COULEUR 20": 

150 PR INT "DOUBLE PAIRE’ 2" ; CHR*C124 >; " 
CARRE: i00"; C -=s 124);"SUITE.. : 10"; 

160 PRINT"PAIRE 9 ..= 1";CHR3K 124);" 

FULL.= 50";CHPï 124 >.;"BRELAN.' 5" 

170 GOSUB 98? -FFICHAGE 

180 BOXFC0,149 - 319,150>,2 

190 BOXFC 0,173 - ? 19, 174 X. 2 

200 C0NS0LE22 2- ËLË SCREEN6,0 

210 C0L0R6 : LINE IN-UT" COMBIEN MISEZ-VOU 

S ? "; AN ! EN=VAL AN) IF EH>CR OR EN<1 THE 

H COLOR 1 : PR INT f ‘I2E TROP ELEVEE" : G0T0210 

220 CR=CR-EN:GOSUB980 

230 GOSUB 1010 

240 CLS = PRINTC-= $C20> = COLOR 6 : PRINT"NOUV 
ELLE DONNE CO/H ?"; =AN*INPUT*C1> 

250 IF AN="N"THEN430 ELSEIFAH<>"0"THEN24 
0 

260 CLS : PRINTCHRîC 20) 

•270 COLOR 6=PRINT NOMBRE DE CARTES ?":RN 
=INPUT$C 1 ) 

280 N=VALCAN ) IFN>50RN<1THEN C0L0R1: PRIN 
T"5 CARTES AL MA ’IMUM"'GOTO 270 
290 FOR1=1 TO H 
300 IFN=5THENECI>=I'GOTO 340 


310 CLS : PRINTCHR$C 20 ) ; PRINT"NUMERO DE L= 
"; I ;"e CARTE":ATY*=INPUT*C1>’IF VALCA" e 
Kl OR VALCATY$>>5 THEN 310 
320 ECI>=VALCATY*> 

330 FORK=1 TOI-1 :1FE<K>=ECI)THEN310ELSE • 
EXTK 

340 X=C EC I)-1>*8 

350 PRINTCHRÏC20 >:C0L0R4,2 = BOXFCX+1,1- 
X+6,10)GR$C 0):COLOR 6,0 
360 FS=-1:R=CCECI )) 

370 A< R)=MID$C AC R ), 2 ) 

380 GOSUB1290 : NEXT I 
390 FOR 1 = 1 TO N:.J=ECI) 

400 FS=1 
410 GOSUB 1250 

420 GOSUB 1090:ATTRBO,0:NEXT t 

430 GOSUB 1340 : IFFY<>0THENPSETCFX,FY >" 

, ,3 

440 GOSUB 980 

450 FORJ=1T05: AC CC J)>=MID$CAC CC J > >,2 ) 

460 Q=ASCC AC CC J > ) > QC Q-48 )=QC Q-48 >-1 
470 K=ASCCRIGHT$CAC CC J >),1>>-64 :DCK >=DC K 

)-l 

480 NEXT J 

490 IFGA >0THENCI r S : PR I NT " C Q >IJ I TE/C D DOUBLE 
?" ; :PRINTCHRÎC20 >:AN=INPUT$C1>:IFAN="D" 
THEN FL=2 ; GOTO580 ELSE IF AN="Q" THEN 50 
0 ELSE 490 

500 FL=1 :SCREEN,O :CR=CR+GA:EN=0:GOSUB980 
:IFCR>0THEN70 

510 f ******* FIN PARTIE ********** 

520 RESTORE=CONSOLE©,24 :CLS=GOSUB750 : COH 
SOLE0,24 :LOCATE0,0*COLOR,0 :PRINTCHR$C11> 
;CHR$C 11 );CHR*C 11 > 

530 ATTRB1,1*C0L0R4,5 :LOCATE1,1 : PRINT"LE 
"; :LOCATE1,18 = PRINT"VOUS A RUINE..." 

540 LOCATE0,23 = C0L0R3,0 ;ATTRB1,0 : PRINT"U 
HE AUTRE PARTIE ?" 

550 AN= I NPIJTfC IM F AN= " O " THENCLS > FL=3 ; CR 

=10:GOTO 90 

560 IF AN*"N"THEN END 

570 GOTO 550 
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580 'JOUEURDOUBLE 

590 C0HSOLE0,12 = CLS «SCREEN6,0 

600 ATTRB,1 : PR INT 

610 PRINT"Lfl CRRTE QUI Vfl ETRE TIREE", " 
SERA-T-ELLE INFERIEURE C I >","OU SUPERIEU 
R ( S ) R Q 11 

620^ AR=INPUT$C1> *RTTRB0,0 

630 IF RR.<>"I"RNDRR<>"S" THEN 620 

640 R=INTCRHD*52>+1 

650 Q=ASCC AC R > > 

660 J=5 ! FS=0 : GOSUB1300 = GOSUB1090 
670 IFQ=49 THEN 0=62 

680 IFC Q>56RNDRR="S">ORC Q<56RNDRR="I">TH 
ENGA=GA*2 ELSEGR=@:FORK=l TO500 : NEXTK : CL 
S :G0TO500 

690 C0L0R2, 0 ; PR INT "ENJEU = ";GA 

700 PSETC21^11> 5 RTTRB0,1=C0L0R6 = LOCRTE0, 

10 = PRINT"C Q MJ ITE OU CD DOUBLE"=RTTRB0,0 

710 RR=INPUT*<1> = RTTRB, 0 

720 IFRRO"0"RNDRR< >"D"THEN710 

730 I FRR= " D " THEN580 EL8ECLS = GOTO500 

740 END 

750 'PRESENTATION 

760 IFFL=0THENCLS:SCREEN4,0, 0 

770 F0RJ=1T05 

780 X=CJ~1>*8' 

790 BOXCX*8+7,7 >-CX*8+56,88>,7 

800 BOXCX*8+6,6 >~CX*8+57,89 >,7 

810 C0L0R4,5 = BOXFC X+1, 1 >~C X+6, 10 >GRSC 0 > 

820 RTTRB1,1=LOCRTEX+3,6,0 »RERDR1= PRINTR 

1;RTTRB0,0 

830 NEXT J 

840 IFFL>0THENCONSOLE12,24 = RETURN 
850 PRINT = PRINT = PRIHT = PRINT = PRIHT = PRINT 
860 COLOR 3,0 

870 PRINT"APRES AVOIR MISE VOUS RECEVEZ 
5 CARTES. SI UNE OU PLUSIEURS DE CELLES 
CI NE VOUSCONVENAIENT PAS VOUS AVEZ LA P 
OSSIBILITEDE VOUS LES FAIRE REDISTRIBUER 
UNE FOIS." 

880 X=1 

890 F0RJ=2T014 
900 F0RI=1T04 

910 AC X >=CHR$CJ+48>+CHP.$C1+64 > = B<X >=2'< 1 

4-J>:X=X+l 

920 NEXTI,J 

930 C0L0R2 

940 PRINT=PRINT=PRINT" TAPEZ SUR 'D' P 

OUR COMMENCER LE JEU" 

950 Z=RND=IFINKEY*<>"D"THEN950 
960 CONSOLE12,24 = CLS 
970 RETURN 

980 'AFFICHAGE DE LA MISE ET DES GAINS 
990 BOXC0,19 >-C39,20 >" ". .0 = COLAR1= RTTRB 
0, 1 

1000 L0CATE6, 20 = PR INT "CREDIT <•" / CR; TABC 2 

2 >;"MISE = "; EN * C0L0R6 = RTTRB0,0 = RETURN 

1010 'TIRAGE DES CARTES 

1020 F0RJ=1T05 

1030 FS=1 

,1040 GOSUB 1250 

1050 GOSUB1090 

1060 C0L0R5,0 = ATTRB,0 = LOCATEX+1,12,O = PRI 
HTJ = ATTRB8 
1070 NEXTJ 
1080 RETURN 

1090 'DESSIN DES CARTES 
1100 ATTRB0,0 = PRINTCHR$C20 > 


1110 X=CJ~1>*8 

1120 BOXCXT8+7.7>-CX*8+56.88>.5 
1130 BOXCX*8+6,6 >-CX*8+57,89>,5 
1140 COLOR,7 = BOXFCX+1,1>-CX+6,16)" " 

1150 PSETCX+1,1>GR$C 1>,P = PR1NTGR$C2 > 

1160 PSETCX+1,2 )GR$C3> = PRINTGR$<4 > 

1170 PSETCX+5,1>GR$C1> = PRINTGR*C2 > 

1180 PSETCX+5,2>GR$C3 > = PPM NTGR*C4 > 

1190 PSETC X+l,9>GR*C1 > = PRÏNTGR*C2) 

1200 PSETC X+1,10 >GR*C 3 > = PR I NTGRïC 4 > 

1210 PSETCX+5,9 >GR$C1> = PRINTGR$C2 > 

1220 PSETC X+5,10>GR$C3 > = PRINTGR*C4 > 

1230 ATTRB1,1=LOCATEX+3,6,0=PRINTCHR$C Qy 
1240 RETURN 

1250 'TIRAGE ALEATOIRE 
1260 R*INTCRND*525+1= CC J >=R 
1270 IFAC R > >"@"THEN1250 
1280 AC R)="A"+AC R > 

1290 Q==A8CC MI D$C AC R >, 2+C FS=-1 > > 5 = QC Q-48 > 
=QCQ-48>+FS 

1300 K=ASCC RIGHTiC AC P. 5, 1 > >-64 = ON K GOSUB 
1560,1620, 1680,1740 = OC K >==DC K >+FS 
1310 I FQ=58THENQ= 133ELSEI FQ==59THEHQ==86 
1320 IFQ=60THEHQ=68ELSEIFQ=61THEHQ=82ELS 
EIFQ=62THENQ=49 
1330 RETURN 

1340 'DECOMPTE DES POINTS 
1350 FOR J=2T014 

1360 IFQC J > > 1 THENC=C+10-\ QC J >~2 > = IF J< 1QT 

HENFT=1 
1370 NEXT J 

1380 C=INTC C > = IFC=0THEN1440 
1390 IFC=1ANDDC=FT THEN GA=0=FY=0=RETURN 
1400 IFCC3THENGA=EN*C = FV=18-C = FX=13 = RETU 
RN 

1410 IFC=10THEHGA=5*EN = FY*17 = FX=37 = RETUR 

N 

1420 IFC=1lTHENGA=58tEN = FY=17 = FX=24 = RETU 
RN 

1430 IFC=100THENGfl=C*EN = FY»16 = FX=24 = RETU 
RN 

1440 FT=0 ! FORJ=1T04 
1450 IFDCJ >=5THENM=1= GOTO1470ELSEM=8 
1460 NEXTJ 

1470 C=BC CC 1 > >XARBC CC 2 > >XORBC rx 3 "> 5XHRBC C 
C 4 > 5XORBCCC 5 > > 

1480 W=C C LOGC C-'31 >/LOGC 2 > > > 

1490 IFINTC WK >WANDCC>7681THEN1520 
1500 IFM=1THEHIFW=0THENGA=500*EN = FY=15 = F 
X=13 = RETIJRNELSEGA=200*EN = FY=15 = FX=24 = RET 
IJRN 

1510 GA=10*EN = FY=16 = FX=37 = RETURN 

1520 IFM=0THEN GR=0=FY=0=RETURN 

1530 GA=20*EN = FY=15 = FX=37 = RETURN 

1540 'CARACTERES 

1550 DATAP,O,K,E,R 

1560 DEFGR$C1>=0,1,3,7,3,17,57,127 

1570 DEFGRSC2 >=0,0,128,192,128,16,56,252 

1580 DEFGR$C3 >=57,17,1,3,7,0,0,0 

1590 DEFGR4C4 >=56,16,0,128,192,0,0,0 

1600 P=0 

1610 RETURN 

1620 DEFGR4C1>=0,0,1,3,7,15,31,63 

1630 DEFGR$C 2 >=0.0,0,128.192.224,240,248 

1640 DEFGR$C 3 >=31,15,7,3,1,0,0,8 

1650 DEFGR$C 4 '>=240.224.192.128.0.0.0, fl 

1660 P=1 

1670 RETURN 


152 











1680 DEFGRS 1 =•: •? 1,3 7,15,31,63 

1749 DEFGRSC1>=0,9,28,62,127,127,127,127 

1690 DEFGRS 128 193,224,240,248 

1750 DEFGRSC 2 >=0,9,112,248,252,252,252,2 

1790 defgrs : f: 3 , 3 , 7 , 15,0 

52 

1710 DEFGRS - 24: 249,128,128,192,2 

1760 DEFGR$<3>=63,31,15,7,3,1,9,9 

24,9 

1770 DEFGRSK 4>=248,240,224,192,128,0,9,9 

1720 P=0 

1780 P=1 

1730 RETURN 

1799 RETURN 


109 


PRISONNIER 

Le sympathique héros de cette histoire 
n'a qu'une idée : s'échapper. 
Saurez-vous l'y aider. 


10 ■ 
20 ' 
30 1 
40 ' 
50 ' 
60 ' 
70 J 
80 ‘ 
30 ‘ 
100 
110 
120 
130 
140 
ISO 
ISO 
170 
180 
190 
200 
210 
220 
230 
240 
250 


CREA”I_ ’ . • 


***** * * 

* 

* 

* 

* 

* 

^REALISE --- .- 

* 

*******=-:--•=- 
CLS: SCREE’-E 
L0CATE2S 22 

restore: 

forc=ot:e -e 

NEXT:A=A-E 

e=o:next:fqr. 

E=E+D:NE'-E-2 
CLS:ATT?: 

PRINT"ME—RE VG 

print poe: :i 

PR INT" P‘. : : 
A$=INPVT« 1 
SAVEM"A- r -.- 
COLOR E: --. : -- 

C0LÜR3:._: 

color i: --: : -. 


* * * * *************** 

* 

2 -N 1ER # 

* 

..-1ER : AFFPRI+ * 

* 

-:i ~OPHE CQUASNARD* 

* 

■■■'*************** 

: ATTRBO,0 
-INT"PATIENCE... 

: : -3RB=100T0661 
: - E-.EA+C, D: E=E+D 
I ; . -DOE THEN240 
”:1:READD:POKEA+C,D 
OIIFDOE THEN240 
CATEO,4 

-E SUPPORT ET EN 
I ENRE8ISTREMENT 
•E- SUR UNE TOUCHE 

: .2D0,&HDFFF,&HD2D0 
INT'C'EST FINI":END 
' 'ERREUR LIGNE"§ 

.::olor2:end 


260 ' TTsETT 
1000 DATA CEE 


= i < 


158,048, 


1010 

DATA 

OOl 

1 rl . 

212 58,079,18 

1020 

DATA 


: : e 

:e:. 212 ,141,19 

1030 

DATA 

O fi 1 

03 e * 

: :- : 193,003,03 

1040 

DATA 

09 : 

19Z- 

.5 039,046, 19 

1050 

DATA 

007 

039. 

596 032,113,14 

1060 

DATA 

072 

131 

.'16.035,001,00 

1070 

DATA 

043 

137. 

_Z- 192,016,19 

1080 

DATA 

112 

143 

.'49.169,254,19 

1090 

DATA 

016 

191 . 

2l_ 143,016,19 

1100 

DATA 

2i *> 

1 -iS 

!-9;169,254,19 

1110 

DATA 

016 

191. 

_1_,145,122,21 

1120 

DATA 

150 

: z e 

I”Z.140,087,20 

1130 

DATA 

Oit 

0 v 

: 00,217,048,13 

1140 

DATA 

001 

i 

>16,190,212,14 

1150 

DATA 

04 S 

1i? 

; 1.064,016,19 

1160 

DATA 

212. 

1 i O 

>16,190,212,14 

1170 

DATA 

049 

163 . 

001,064,016,19 

1180 

DATA 

212. 

14E ; 

124,212,150,03 


0787 
0Ô30 
1007 
0289 
O 5 6 S 
0427 
0317 
0837 
1019 
0768 
1021 
0898 
0690 
04 S 4 
0626 
0490 
0918 
0490 
0875 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 

1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1S10 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


033, 

188, 

212 1 

143, 

016, 

039, 

0631 

000, 

177, 

048, 

001 , 

124, 

212, 

. 0662 

148, 

032, 

019, 

188, 

212, 

145, 

0744 

016, 

039, 

000, 

163, 

048, 

Q31, 

0297 

122, 

212, 

148, 

032, 

005, 

052, 

0571 

127, 

190, 

212; 

141, 

079, 

I 89 ; 

0938 

2 2, 

039, 

037, 

047, 

206, 

,212, 

0773 

172, 

079, 

183, 

,212, 

155, 

, 191 , 

, 0992 

212, 

141 , 

190, 

212, 

149, 

, 188, 

1092 

212, 

151, 

, 038, 

, 018, 

, 016 , 

, 190, 

, 0625 

212, 

147, 

,016, 

, 188, 

212, 

, 153, 

: 0928 

038, 

008 j 

, 206, 

,213, 

, 108, 

, 134, 

, 0707 

001 , 

183, 

,212, 

, 155, 

, 023, 

, 003, 

, 0577 

207, 

190. 

,212, 

, 141 , 

, 189 ; 

,211 , 

, 1150 

217, 

032, 

, 098, 

1 82 ; 

,212, 

, 156, 

, .0897 

129, 

000 i 

, 039, 

, 202, 

, 122, 

,212, 

, 0704 

156, 

182, 

,212, 

, 155, 

, 183, 

, 212, 

, 1100 

157, 

095, 

, 247, 

,231 , 

, 207, 

, 204, 

, 1141 

063, 

004. 

, 183, 

,231 , 

, 205, 

,247, 

, 0933 

231 , 

207, 

, 026, 

,016, 

, 134, 

, 208, 

, 0822 

074, 

183 j 

,231 , 

, 205, 

, 016 , 

„ 190, 

, 0893 

211 , 

215. 

, 049, 

, 063, 

, 038. 

> 252, 

, 0828 

122, 

211 . 

,216, 

, 038, 

, 239, 

,016, 

, 0842 

142, 

000 

, 192, 

,016, 

, 191 . 

,211 , 

, 0752 

215, 

026 

, 016, 

, 032, 

, 147, 

, 000, 

, 0436 

192, 

095, 

, 092-, 

, 048, 

t 136, 

, 034, 

, 0597 

166, 

192, 

, 167, 

, 128 , 

, 166, 

, 192, 

, 1011 

167, 

128, 

, 166, 

, 192. 

, 167, 

t 1 .iL , 

, 0948 

166 , 

192, 

, 167, 

128 j 

, 166, 

, 192, 

, 1011 

167, 

128, 

, 166, 

, 192 , 

, 167, 

, 128, 

, 0948 

193, 

032, 

, 038, 

« 224 ; 

, 057, 

, 134, 

, 0678 

001 , 

189 , 

232, 

, 039, 

, 193, 

,001 , 

, 0655 

039, 

026, 

, 193 , 

, 003, 

, 039. 

, 048, 

, 0348 

193 , 

005 ; 

, 039, 

, 031 , 

; JL 93 J 

, .00 /, 

, 0468 

039, 

055 ; 

, 189, 

, 232 ; 

, 039, 

, 037 , 

, 0591 

0fo5 , 

142, 

, 005, 

, 120, 

, 048 , 

, 031 , 

,0411 

038 , 

252, 

, 053 , 

, 255 , 

, 190, 

,212, 

, 1000 

151 , 

140, 

« 000 ; 

, 008 , 

, 039 , 

, 234, 

, 0572 

122, 

212 , 

, 152, 

, 032 , 

; 22*3 j 

, 190 , 

, 0937 

212, 

151 , 

, 140. 

; 000 ; 

: 02 1 ; 

, 039, 

! 0363 

221 , 

124, 

,212, 

, 152, 

, 032, 

,216, 

, 095 Z 

016, 

190, 

,212, 

, 153, 

. 016 , 

, 140, 

, 0727 

000 , 

036, 

039 , 

206 , 

124, 

,212, 

,0617 

154, 

032 , 

, 201 , 

,016, 

190 , 

212, 

0805 

153, 

016, 

140, 

, 000 ; 

002, 

039, 

0350 


153 














1640 

DATA 

191 

1650 

DATA 

206 

1660 

DATA 

048 

1670 

DATA 

141 

16 3 0 

DATA 

002 

1690 

DATA 

192 

1700 

DATA 

00 1 

1710 

DATA 

033 

1720 

DATA 

006 

1730 

DATA 

051 

1740 

DATA 

246 

1750 

DATA 

158 

1760 

DATA 

020 

1770 

DATA 

OOO 

1780 

DATA 

135 

1790 

DATA 

032 

1800 

DATA 

ooo 

1810 

DATA 

000 

1820 

DATA 

OOO 

1830 

DATA 

OOO 

1840 

DATA 

ooo 

1850 

DATA 

OOO 

1860 

DATA 

ooo 

1870 

DATA 

ooo 

1880 

DATA 

ooo 

1890 

DATA 

ooo 

1900 

DATA 

192 

1910 

DATA 

224 

1920 

DATA 

240 

1930 

DATA 

248 

1940 

DATA 

248 

1950 

DATA 

248 

I960 

DATA 

248 

1970 

DATA 

248 

1980 

DATA 

240 

1990 

DATA 

240 

2000 

DATA 

224 

2010 

DATA 

128 

2020 

DATA 

OOO 

2030 

DATA 

ooo 

2040 

DATA 

ooo 

2050 

DATA 

ooo 

2060 

DATA 

ooo 

2070 

DATA 

ooo 

2080 

DATA 

ooo 

2090 

DATA 

ooo 

2100 

DATA 

ooo 

2110 

DATA 

ooo 

2120 

DATA 

ooo 

2130 

DATA 

ooo 

2140 

DATA 

ooo 

2150 

DATA 

ooo 

2160 

DATA 

ooo 

2170 

DATA 

ooo 

2180 

DATA 

ooo 

2190 

DATA 

ooo 

2200 

DATA 

ooo 

2210 

DATA 

ooo 

2220 

DATA 

192 

2230 

DATA 

224- 

2240 

DATA 

240 

2250 

DATA 

248 

2260 

DATA 

248 

2270 

DATA 

248 

2280 

DATA 

248 

2290 

DATA 

248 

2300 

DATA 

240 

2310 

DATA 

240 

2320 

DATA 

224 


,122,212,154, 
,212,160,190, 
,001,016,190, 
,007,206,212, 
,032,177,052, 
,129,002,039, 
,038,006,174, 
,032,240,129, 
,183,096,065, 
,048,001,032, 
,072,192,072, 
,000,036,000, 
,000,020,000, 
,000,132,133, 
,002,032,032, 
, 002,000-, 000 , 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,001, 
,000,000,007, 
,000,000,015, 
,000,000,031, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,031, 
,000,000,031, 
,000,000,015, 
,000,000,003, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,000, 
,000,000,001, 
,000,000,007, 
,000,000,015, 
,000,000,031, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,063, 
,000,000,031, 
,000,000,031, 
,000,000,015, 
,000,000,003, 


032 , 136,089 7 
212 , 153,1133 
212 , 151,0618 
166 , 141,0873 
118 , 166,0547 
024 , 129 , 0515 
098 , 049,0366 
000 , 039,0473 
189 , 232,0771 
226 , 053,0411 
192 , 072,0846 
008 , 000,0202 
100 , 000,0140 
001 , 134,0400 
001 , 032,0234 
000 , 000,0034 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000 , 0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
063 , 252 , 0315 
255 , 255,0511 
255 , 255,0517 
255 , 255,0717 
255 , 255,0765 
255 , 255 , 0813 
255 , 255,0821 
255 , 255,0821 
255 , 255,0821 
256 , 255,0821 
255 , 255 ,O 789 
265 , 255 ., 0 781 
265,255 , O 76*5 
255 , 255,0737 
255 , 255 , 06-88 
063 , 252,0315 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
000 , 000,0000 
ooo, 000,0000 
000 , 000 , 0000 
000 , 000,0000 
000 ,ooo ,0000 
000 , 000 , 0000 
ooo,ooo ,0000 

063,252,0315 
255,255,0511 
25-6,2!55,051 7 
255,255,0717 
204,1Q3,0562 
236,111,0650 
246,223,0780 
248,063,0622 
252,127,0690 
252,127,0690 
252!, 12 7,0658 
253,127,0651 
249,063,0567 
251,191,0669 


2330 

DATA 

2340 

DATA 

2350 

DATA 

2360 

DATA 

2370 

DATA 

2380 

DATA 

2390 

DATA 

2400 

DATA 

2410 

DATA 

2420 

DATA 

2430 

DATA 

2440 

DATA 

2450 

DATA 

2460 

DATA 

2470 

DATA 

2480 

DATA 

2490 

DATA 

2500 

DATA 

2510 

DATA 

2520 

DATA 

2530 

DATA 

2540 

DATA 

2550 

DATA 

2560 

DATA 

2570 

DATA 

2580 

DATA 

2590 

DATA 

2600 

DATA 

2610 

DATA 

2620 

DATA 

2630 

DATA 

2640 

DATA 

2650 

DATA 

2660 

DATA 

2670 

DATA 

2680 

DATA 

2690 

DATA 

2700 

DATA 

2710 

DATA 

2720 

DATA 

2730 

DATA 

2740 

DATA 

2750 

DATA 

2760 

DATA 

2770 

DATA 

2780 

DATA 

2790 

DATA 

2800 

DATA 

2810 

DATA 

2820 

DATA 

2830 

DATA 

2840 

DATA 

2850 

DATA 

2860 

DATA 

2870 

DAT A 

2880 

DATA 

2890 

DATA 

2900 

DATA 

2910 

DATA 

2920 

DATA 

2930 

DATA 

2940 

DATA 

2950 

DATA 

2960 

DATA 

2970 

DATA 

2980 

DATA 

2990 

DATA 

3000 

DATA 

3010 

DATA 


128,OOO,OOO,OOO,227,143,0498 
OOO,OOO,OOO,OOO,063,252,0315 

ooo , ooo , ooo , ooo , ooo , ooo ,0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 
ooo , ooo , ooo , ooo , ooo , ooo , 0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 
ooo,ooo,ooo,ooo,ooo,ooo, 0000 

OOO,OOO,052,127,190,214,0583 
093,206,214,095,023,001,0632 


041 , 

, 141 ; 

, 010 , 

, 023, 

001 , 

, 045 ; 

, 0261 

190 , 

-214, 

, 093 , 

, 141 , 

002, 

1 053 j 

, 0693 

255 ! 

, 095. 

, 092, 

, 048, 

136, 

; 036 ; 

- 0662 

166, 

, 192. 

, 167. 

; 128, 

166, 

, 192 j 

, 1011 

167, 

.128, 

, 166 , 

192 , 

167 , 

: 1 23 ; 

, 0948 

166, 

192 , 

: 167, 

, 128, 

1*93, 

, 019, 

- 0865 

038 , 

; J j 

, 057 , 

069 , 

169 , 

, 255 j 

, 0820 

240 , 

- 015, 

, 255 , 

- 255 , 

001 , 

: 032, 

, 0798 


255,252,032,064,063,240,0906 
OOO,032,01S,192,003,192,0434 
003,023,015,240,060,OOO,0341 
063,252,OOO,OOO,015,240,0570 
OOO,003,031,248,192,015,0489 
062,124,240,063,184,029,0702 
252,143,112,014,240,079,0840 
127,254,248,079,127,254,1089 
248,175,207,243,248,175,1296 
252,063,248,239,127,254,1183 
250,111,118,014,250,239,0982 
112,014,249,228,100,100,0803 
224,228,124,092,100,100,0868 
124,092,100,100,060,092,0568 
100,098,058,058,098,018,0430 
058,058,018,058,058,058,0308 
058,058,071,071,058,058,0374 
071,071,058,058,071,071,0400 
058,058,071,071,058,063,0379 
071,071,063,063,071,071,0410 
063,063,071,071,063,063,0394 
193,193,063,063,199,199,0910 
063,063,071,071,063,063,0394 
071,071,063,063,071,071,0410 
063,052,127,190,215,030,0677 
206,215,032,141,095,141,0830 
009,141,100,190,215,030,0685 
141,002,053,255,095,092,0638 
048,136,038,166,192,167,0747 
128,166,192,167,128,193,0974 
016,038,240,057,070,032,0453 
OOO,032,003,192,015,240,0482 
063,252,003,192,004,032,0546 
007,224,015,240,006,096,0588 
ooo,OOO,OOO,000,OOO,OOO,0000 
ooo,ooo,ooo,ooo,ooo,ooo,0000 

OOO,OOO,060,092,058,058,0268 
058,058,058,058,071,071,0374 
071,071,071,071,071,071,0426 
071,071,071,071,071,071,0426 
071,071,071,071,071,071,0426 
071,071,071,071,182,231,0697 
195,138,001,183,231,195,0943 
057,182,231,195,132,254,1051 
183,231,195,057,052,127,0845 
190,215,153,206,215,155,1134 
141,228,141,009,141,233,0893 
190,215,153, 1.41,002,053,0754 
255,095,092,048,136,038,0664 


154 






















in20 DATA 166,192,167,128,166, 
S030 DATA 167,128,193,016,038, 
3040 DATA 057,070,032,000,032, 
3050 DATA 192,015,240,063,252, 
3060 DATA 000,000,000,000,000, 
3070 DATA 000,000,000,000,000, 
3080 DATA 000,000,000,000,000, 
3090 DATA 000,000,000,000,000, 
3100 DATA 092,058,058,058,058, 
3110 DATA 058,071,071,071,071, 
3120 DATA 071,071,071,071,071, 
3130 DATA 071,071,071,071,071, 


3140 

DATA 

071 

071,071,071,071 

3150 

DATA 

071 

255,255,255,255 

3160 

DATA 

052 

127,206,21b,056 

3170 

DATA 

231 

195,138,001,183 


3210 

DATA 

189,216,003 

'"'CI- 

073 ; 0795 

3220 

DATA 

183,216,053 

166,192 

230,1040 

3230 

DATA 

192,129,255 

039,016 

177,0808 

3240 

DATA 

216,053,039 

239,124 

216,0887 

3250 

DATA 

053,231,128 

140,070 

064,0686 


192, 
240, 
003, 
000 ; 
000 , 
000 , 
000 ; 
060 , 
058 ; 
071 , 
071 , 
071 , 
071 , 
255, 


1011 
0782 
0194 
0762 
0000 
0000 . 
0000 
0060 
0382 
0413 
0426 
0426 
0426 
1346 


231,0979 

3180 DATA 195,142,064,000, 189,216,0.806 
3190 DATA 003,182,231,195,132,254,0997 
3200 DATA 183,231,195,142,064,000,0815 


3260 
3270 
3280 
3290 
3300 
3310 
320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


038,241,057,166,192,241,0935 
216,053,039,011,124,216,0659 
053,167,128,140,070,064,0622 
038,239,057,051,095,032,0512 
206,000,000,000,235,000,0441 
001,001,001,254,005,000,0262 
255,011,007,255,192 
255,224,000,124,000, 

254,002,000,255,018, 

000,024,000,024,000 
000,024,000,124,000, 

255,128,007,255,224 
000,255,003,015,255 
004,000,255,031,031 
240,031,255,248,001 
000,015,255,128,003 
128,060, 

000,126, 

255,192, 

000,255, 

004,000,255,031,127,255,0672 
248,063,255,252,00 7 ,255, 1080 
192,063,255,192,015,255,0972 
224,126,000,255,000,126,0731 


0727 
0606 
0783 
0072 
0151 
0871 
0720 
O 6 7 6 
255,1030 
255.0656 


, 007, 
, 003, 
254, 
, 024, 
003, 
, 002 , 
, 192, 
, 255 , 


000,126,000, 

, 060. 

; 0374 

001,255,000 ; 

, 015 , 

, 0397 

031,255,248. 

, 002 ; 

, 0983 

003,063,255, 

, 240 ; 

; 08 1 6 


255,007,255, 


5:3.0772 


3510 

DATA 

255 

224,063 

255,252 

3520 

DATA 

000 

2'5 5.uOy 

127,255 

3530 

DATA 

004 

000,002 

255,255 

3540 

DATA 

252 

127,255 

252,007 


3550 
356' O 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


192 , 127 , 255 ', 224, 1 
240 , 127 , 000 , 255, 1 
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5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
615 O 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


004, 
003, 
124, 
100, 
068, 
004, 
003, 
124, 
124, 
068, 
004, 
003, 
003, 
003, 
124, 
124, 
068, 
100, 
068, 
124, 
124, 
100, 
068, 
124, 
124, 
100, 
124, 
068, 
003, 
003, 
001 , 
003, 
003, 
124, 
124, 
068, 
100, 
Ut'y ; 
124, 
124, 
100, 
068, 
124, 
100, 
068, 


124, 
06 
100, 
124, 
068, 
124, 
068, 
100 , 
068, 


124, 
124, 
004, 
004, 
068 
068 
100, 
100, 
004, 
068, 
004, 
124, 
068, 


068, 
124, 
068, 
003, 
124, 
068, 
124, 
068, 
003, 
255, 
068, 
124, 
124, 
068, 
003, 
003, 
001 , 
003, 
003, 
001 , 
003, 
OU, 
003, 
001 , 
003, 
007, 
003, 
255, 
068, 
068, 
100, 
124, 
068, 
003, 
003, 
001 , 
003, 
002, 
001, 
003, 
007, 
003, 
003, 
003, 
003, 
001, 
003, 
004, 
002, 
007, 
004, 
003, 
003, 
001, 
003, 
003, 
001 , 
003, 
007, 
004, 
001, 
001 , 
032, 
002, 
004, 
001 , 
003, 
003, 
003 , 


003 
003 
124 
068 
003 
003 
003 
124 
068 
003 
003 
OU 
003 
255 
068 
068 
100 
068 
124 
100 
068 
068 
124 
100 
068 
068 
068 
003 
001 
002 
007 
003 
265 
068 
068 
100 
068 
124 
100 
068 
068 
124 
068 
068 
124 
100 
124 
068 
124 
068 
068 
124 
068 
100 
068 
124 
0Q4 
068 
068 
068 
100 
100 
004 
068 
068 
100 
124 
068 
124 


,124,004,068,0271 
, 068, 


, 068, 
, 124, 


255, 
068, 
003, 
002 , 
004, 
255, 


, 009,06$ 


o, 00 o 
,003,124,003 
,124,068,124 

, 1 jc4 , 

, 068, 

, 068, 

, 003, 

,001 , 

, 003, 

,007, 

, 003, 

, 003, 

, 003, 

, 003, 

, 003, 

,003,v 
, 003, 

, 003, 

,001 , 

, 003, 

, 124, 

, 100, 

, 124, 

, 068, 

, 068, 

, 003, 

, 001 , 

, 002, 


, 003, 
, 003, 
, 003, 
, 001 , 
, 004, 
, 003, 
, 003, 
,001 , 
, 002, 
, 003, 
,003, 
, 004, 
, 001 , 
, 003, 
, 004, 


003,0456 
001,0393 
124,0553 
124,0389 
068,0271 
003,0456 


0396 

0325 

0642 


068,003,0270 
,003,124,003,0325 
,007,068,001,0245 
,003,124,003,0301 
, 003 
, 003. 

,003,124,001,0323 
,001,100,032,0212 
,001,100,002,0179 
,032,004,004,0209 


068,003,0269 
068,003,0203 


, 002 , 
, 004 , 
, 001, 
, 001 , 
, 002 , 
, 003, 
, 003, 
, 003, 


068, 
068, 
100, 
100 , 
068, 
068, 
124, 
068, 


001 . 
001 


0240 
0209 
032,0303 
002,0179 
001,0240 
003,0205 
004,0326 
003,0269 


003,068,0270 

6570 

001,100,0307 

6580 

003,124,0325 

6590 

124,068,0521 

660p 

100,003,0299 

6610 

124,003,0325 

6620 

068,001,0245 


124,003,0301 

10 ' 

068 ; 003,0269 

20 ' 

068,003,0299 

30 ' 

124,001,0323 

40 ' 

124,003,0309 

50 ' 

068,003,026S 

60 ' 

068,003,0299 

70 ' 

124,001,0323 

80 Cl 

100,003,0279 

90 S( 

124,003,0325 

100 

068,124,0642 

110 

003,124,0299 

120 

004,068,0269 

130 

001,100,0277 

140 

003,124,0325 

150 

124,068,0521 

160 

100,003,0299 

170 

124,004,0325 

180 

068,001,0245 

190 

124,004,0302 

200 

068,003 ; 0268 

210 

068,003,0299 

220 

124,001,0323 

230 

100,003,0279 

240 

068,002,0269 

250 

124,001,0323 

260 

124,003,0301 

270 

100,007,0303 

280 

124,004,0299 

290 

068,003,0269 

300 

124,003,0326 

310' 

068,001,0267 

320 

100,002,0278 

330 

124,003,0326 

340 


6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
0 0. ( ) 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


J. 2 a 

100 
124 
068 
003 
003 
003 
001 
001 
004 
124 
068 
1 00 
068 
100 
06 


,001,100,004,068,OOÎ,0296 
,002,068,001,100,002,0273 


004 

,068,003,124,003, 

, 0326 

003 

, 124,004., 068,255 . 

, 0522 

124 

,068,124,003,068, 

, 0390 

124 

,003,068,002,100, 

, 0300 

068 

,001,100,002,068, 

, 0242 

100 

,002,124,005,068, 

, 0300 


,124,005,068,002,124,0324 
,068,255,003,124,068,0522 
,003,068,002,124,004,0325 
100,003,068,001,0242 
068,001,100,031,0302 
100,002,068,002,0242 
068,001,100,006,0277 
0384 


, 002 
, 002 
, 002 
, 002 


068,192,124, 
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* * 
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* 


DONNEES QRAF'H IQUES 


T TT T T T TT T T T T T T: T TT T T T T T T TT T T T T TT T T T 


¥■ 


350 P$=P$+CHR$ 110>+GR$ <2 > +GR$(3> 

360 PH$=GR$t4 >+GR$ C5)+CHR$ <8) 

370 PB$=CHR$ (. 8) +CHR$ C 10 ') +GR$ 1 £■ ) -i-GR$ ( 7 ) 
380 EH$=" "+CHR$C8>+CHR$(8) 

390 EB$=CHR$ (. 10 > + " " 

4-00 P1$=GR$ ( 8 ) +GR$< 91 ^ C H R 1 T (. y ) +CHE$ 1 80 
410 P1$=P1$+CHR$C8> +CHR$C 8>+CHR$C10> 

420 P2$=GR$C10)+GR$(11)+CHR$(8)+CHR$(8) 
430 P2$=P2$+CHR$C8)+CHR$ C8 >+CHR$(10 > 

440 P2$=P2$+GR$<12 >+GR$(13) 

450 CL 1 $=GR$ 1 14 ) +GR$ < 15 ) 

460 CL2$=GR$(16 ) +GR$C17) 

470 MI$=CHR$ C 271+CHR$C 651+GR$C18) 

480 GOTO1750 

490 ' W -$T T T T T T T T T T T T T T T T T T T T T T T T T T t t: T T 


1 * 


AFFICHAGE DU SCENARIO 


500 

510 ' :=P :=t=: :i=: W=: 4=: :=K :+ 

520 CLS!LOCATES,8,0:COLORO 
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530 PRINT"Vous arrivez a vous échapper d 
e 

540 LDCATES,10:CQL0R7 

550 PRINT"votre cellule. Mais une fois 
560 L0CATE3,12;COL0RO 

570 PRINT"dans la cour, l'alerte est don 
nee. 

580 L0CATE3,14:CDL0R7 

590 PR INT "Dans la. nuit, on voit le halo 
du 

600 C0LQR0:L0CATE3,16 

610 PRINT"projecteur qui vous traque. 

620 LQCATES,18;C0L0R7 

630 PRINT"Evitez-le si vous ne vouiez pa 

cq 

640 LDCATES,20;CÜLORO 

650 PRINT"vous faire tuer par les qardie 
ns. 

660 A=RND;LÜCATE16,23:CÜLORO,7 
670 PRINT"ACTION";C0L0R7,0 
680 LÜCATE16,23: PRINT"ACTION 
690 IFSTRIG10)—0ANDSTRIG(1) — 0THEN S 60 
700 CONSOLES,24;CQLQR7,12;CLS 
710 L0CATE3,7,0 

720 PRINT"Si vous vous perdez dans la nu 

it-, 

730 CÜLORO:L0CATE3,9 

740 PRINT"vous pouvez utiliser votre bri 
quet- 

750 CQL0R7;LQCATE3,11 

760 PRINT"pour vous reperer, niais cela e 
st 

770 CÜLORO:L0CATE3,13 

780 PRÏNT"aussi valable pour les gardien 
s. 

790 CÜL0R7;L0CATE3,15 

800 PRINT"La premiers cle est pour les 
810 L0CATE3,17:CÜLORO 

820 PRINT”trois premiers portes, et la 
830 LÜCATE?,19;C0L0R7 

840 F’RINT"deuxieme pour le deuxieme grou 
pe 

850 L0CATE3,21;CÜLORO; PRINT"de portes. 

860 A=RND:LÜCATE16,24;CÜLORO,7 

870 PRINT"ACTION"5 ;C0LÜR7,0 

880 LÜCATE16,24: PRINT"ACTION"3 

890 IFSTRIG(0)—0AND8TRIG <11=0THEN860 

900 pOLOR7,12:CLS:LÜCATE3,8,0 

910 PRÏNT"Pour vous donner du courage, 

920 L0CATE3,10;CÜLORO 

930 PRINT"pensez que l'on vous attend de 
940 LÜCATE3,12;C0LÜR7 

950 PRINT"1'autre cote, pour prendre la 
960 LÜCATE3,14;CÜLORO 
970 PRINT"cle des champs. 

980 L0CATE3,16;C0L0R7 

990 PRINT"Ne perdez pas de temps, il est 

1000 L0CATE3,18:CÜLORO 

1010 PRINT"precieux et limite a 999. 

1020 A=RND;LÜCATE16,23;CÜLORO,7 
1030 PRINT"ACTION";C0L0R7,0 
1040 LÜCATE16,23: PRINT”ACTION 
1050 IFSTRIG10)=0ANDSTRIG C1 >-OTHEN1020 
1060 GOTO1750 

1070 ' T T :f T T T ■¥■ T T T T T T T T T t T T T T T T T '*'■ T * T T T T T T 
1080 ' :t AFFICHAGE DE L’ECRAN * 

1090 ' :f: T TT T T T T T T T T T fc*: :ict f T T T :lct :f: :f ipt: ipt X 

1100 CONSOLEO,24:CLS;C0NS0LE2,6 
1110 SCREEN4,4; CONSOLE7,24;SCREEN,0 


1120 CONSOLEO,24;C0LQR3,12 
1130 LÜCATE19,0,0: PRINTP$;ATTRB1,0 
1140 C0L0R4,8; FOR r = 1 TQ3:LÜCATEI*5,4 
1150 PR1NTP1 $ ? P2$;NEXT 
1160 FORI=4T06;LOCATE1 +1T 5,4 
1170 PR I NTP 1 * ü p£‘$ ; NEXT : ATT RBO , 0 
1180 CQLORO,12:FORI=0T017STEP2 
1190 LOCATEI, 1 : PRINTGR$C19);GR$C20) 

1200 NEXT:FORI«22T038STEP2:LOCATEI,1 
1210 P RIN T G R $ ( 21)5 ü F; C 2 2 ) : N E X T 
1220 LOCATE10,24;C0LÜR4,3; PRINTCL1$3 
1230 LQCATE28,24; PRINTCL2$ 3 
1240 A=RND:LOCATE16,10;C0L0R0,7 
1250 PRINT"ACTION":C0L0R7,0 
1260 LOCATE16,10:PRINT"ACTION 
1270 IFSTRIG(0> =0ANDSTRIG(1)=0THENI240 
1280 CO NS OLE 7,23 : S CREE N Si, 0 : CLS 
1290 CONSOLEO,24;T=100:CL-0 
1300 X X =5*RND:P0KE&HD498,9+1NT CRNDT12>: P 
0KE&HD49A,8+1NT C RND*28 >;EXEC&HD35F . 

1310 ' f: $ T T :fc T % T T T T ■¥■ $ T '■¥ T T: T T T M T T T T '■¥ T T: T T 
1320 '* PROGRAMME CORPS T 

1330 ' T * T T T * T :f T T T: T T T T T * T TT T T :f T T T T T T T T T T: 
1340 COLORS,0;EXEC&HD2D0;C0L0R1,12 
1350 LÜCATEO,0: PRINTPEEKC &HD49C> 

1360 LOCATE35,0;C0L0R2 

1370 PRINTPEEK(&HD49E>T256+PEEKC&HD49F) 

1380 IFC PEEKC&HD49E)T256+PEEKC&HD49F)) = 1 

OOOÜRPEEKC &HD49D) THEN1670 

1390 IFSTRIG C1)=OTHEN1340 

1400 B=F 1 E E KI Si H D498 ) ; A=P E E K ( &HD4 9 A ) 

1410 I FA= 10 AND B=21THENCL--1 EL SE 1450 
1420 PLAY"SILA":LOCATE10,24:CÜLÜR,3 
1430 PRINT" "3 ;L0CATE28,24:C0LQR4 
1440 PRINTCL2$3 :COLOR,0 
1450 I FA=28ANDB=21 THÈNCL=2EL.SE 14.90 
1460 PLAY"MILA" :LOCATE1 6 ,24;C0L0R4,3 
1470 PRINTCL1* 5 ;L0CATE28,24; PRINT" "3 
1480 COLOR,0 

1490 IFA=7ANDB=8ANDCL=1THENPLAY"S1FA": IF 

X. X =OTHEN 1560ELSEPLA Y " DODO 

1500 IFA=12ANDB=8ANDCL=1 THENPLAY"SIFA" ; I" 

F X X = 1THEN1560ELSEPLAY"DODO 

1510 IFA=17ANDB=8ANDCL=1THENPLAY"SIFA": I 

FX X =2THEN1560ELSEPLAY"DODO 

1520 IFA=23ANDB=8ANDCL=2THENPLAY’"MI FA" : I 

FX X=3THEN1S60ELSEPLAY"DODO 

1530 IFA=28ANDB=8ANDCL=2THEMPLAY"MIFA": I 

FXX=4THEN1560ELSEPLAY"DODO 

1540 IFA=33ANDB=8ANDCL=2THENPLAY"MIFA"; I 

FXX-5THEN1S60ELSEPLAY"DODO 

1550 GOTO1340 

1560 DO=PEEK(&HD65E):D1=PEEKC &HD71F > 

1570 D2-PEEK C&HD79A > 

1580 IF X X> 2THE N X X = X X T5+1 ELSË X X=XX T5 
1590 P0KE&HD65E,DO+XX ;EXEC&HD62C 
1600 P0KE&HD6SE,DO: FORI=0T01000:NEXT 
1610 P0KE&HD71F,Dl+XX:EXEC&HD6F7 
1620 PÜKE&HD71F,DI ; FORI=0101000:NEXT 
1630 PÜKE&HD79A,D2+XX:EXEC&HD772 
1640 P0KE&HD79A,D2; FORI=0101000:NEXT 
1650 LÜCATE5,3:C0L0R2,4 

1660 PRINT"LE PRISONNIER EST LE VAINQUEU 
R";GOTO1690 

1670 L0CATE6,3:COLOR1,4 

1680 PRINT"LE GARDIEN EST LE VAINQUEUR 
1690 F0RI=0T010000:NEXT:P0KE&HD49D,0 
1700 PÛKE&HD49E,0:P0KE&HD49F,0 
1710 PÜKE&HD49C,100:SCREENO,12,12:CLS 
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1720 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
1730 '* MENU * 

1740 ' :********* % **********4:**** 4 -$****** 

1750 EXEC&HD7E0: CONSOLES,24 

1760 SCREENO,12,12:CLS 

1770 L0CATE7,11,0:C0L0R4,3: PRINT"1"? 

1780 COLORO,12:PRINT" MODE D'ËMPLOI 
1790 LOCATE7,14:CÜLQR4,3; PRINT"2"5 
1800 COLORO,12: PRINT" SCENARï0 
1810 L0CATE7,17: COLOR4,3: PRïNT"3" |i 
1820 COLORO,12:PRINT" JEU 
1830 A$=INPUT$ C1!>: A-VALCA*) 

1840 ONA GOTO1880,520,1100; GOTO1830 
1850 ' **** t: ^ :=K :=j=: :i=: :-fï :=j=: :t: :t: *: :l=: 

1860 ' * MODE D'EMPLOI * 

1870 ' i=: +::=h::Hs:=t::l=: 

1880 CLS:LQCATE3,10:COLORO 

1890 PRINT"La manette du port 0 est cell 

e":C0LGR7:LOCATE3,12 

1900 PRINT"du gardien. E11e dirige 1e ha 
Io,":LOCATE3,14:COLORO 

1S<10 PR INT" et le bouton sert a tirer sur 

le 

1920 COLOR7:LÜCATE3,16 

1930 PRINT"p risonnie r A t tention, i1 n'y 
a":LGCATË3,18:COLORO 


1940 PRINT"que 100 munitions. 

1950 A=RND;LOCATE16,22:COLORO,7 

1960 PRINT"ACTION":CÛL0R7,0 

1970 LOCATE16,22:PRINT"ACÏION 

1980 IFSTRIG C 0)=OANDSTRIG C1> =OTHEN1950 

1990 COLORO,12;CLS:L0CATE3,8 

2000 PRINT"La manette du port 1 est cell 

e du":L0CATE3,10;C0LQR7 

2010 PRINT"prisonnier Elle le dirige da 
ns 

2020 L0CATE3,12:COLORO 

2030 PRINT"le noir, sauf si l’on appuie 
sur 

2040 L0CATE3,14:C0L0R7 

2050 PRINT"le bouton. Il sert aussi a 

2060 LOCATE3,16:COLORO 

2070 PRÏNT"prendre les clés et ouvrir le 
s":L0CATE3,18:C0L0R7 

2080 PRINT"portes, a condition que l'on 
2090 LOCATES,20:COLORO 
2100 PRINT"soit dessus. 

2110 A=RND;LOCATE16,24:COLORO,7 
2120 PRINT"ACTION"5 ;CQLQR7,0 
2130 LOCATE16,24:PEÏNT"ACTÏÜN"5 
2140 I FSTR IG C 01 -'ÜANDSTRIG C 1 > «0THEN2110 
2150 GOTO1750 


M05 

RAID 

Vous devez survoler un territoire ennemi afin de prendre 
des photographies. Mais attention : les missiles sol/air 
de vos adversaires sont fort efficaces. 


10 '**************************** 

20 ' % % 

30 ’% RRID MISSION RIJ DESSUS * 

40 '* D UNE BASE SECRETE * 

50 '* FIN MRI 1585 * 

60 ’ **************************** 

70 CONSOLE 0,24 

80 VA=18 : ’**** = VITESSE DE L AVION **** 

90 P1=3.14159265359 

100 CLS t SCREEN 0.10,10 

110 f **** NIVEAU DE DIFFICULTE **** 

115 RTTRB 1,1 

120 PRINT : PRINT" RRID": PRINT = PRIN 

T ! RTTRB 0,0 

130 PRINT" NIVEAU DE DIFFICULTE 

?" =PRINT * PRINTiPRINT >PRINT 

140 PRINT" 1= FACILE 

2= MOYEN 
3= DIFFICILE" 

145 PRINT 1 PRINT"POUR AVOIR DES EXPLICATI 
ONS SUR LE JEU* TAPEZ 0" 

■ LOCRTE0,0,0 

150 D$=INKEY$•R-RHD : IF D*»"" THEN 150 
160 IF D$<"0" OR Dï>"3" THEN 150 
165 IF D$="0" THEN 3000 
170 IF D$="3" THEN VM=20 ELSE VM=19 

180 1F D*="l" THEN VM=18.5 

181 CLS 


183 RTTRB 1,1 «LOCATE 2,6,0■PRINT"R"i 


185 LOCATE 2,10,0 
187 LOCATE 2,14,0 

189 LOCATE 2,18,0 

190 LOCATE 33,6,0 
200 LOCATE 33,7,0 
210 LOCATE 33,8,0 
215 LOCATE 36,9,0 
220 B=FIX<RND*10> 

230 XAD=B*18+69 •• 

E DEPART AVION ****** 
235 XA0=XAD « YA0=198 
240 XA1=XA0 = 

250 XA2=XA1 « 

260 XA3=XA2 » 

270 LOCATE 33 


PRINT"A"; 

PRINT"I"; 

PRINT"D" ,• : RTTRB 0,0 
PRINT"NIVEAU "i 
PR I HT 11 DI FF IC. " ; 

PRI NT "CHOISI « ".i 
PR INT D$.i 

YAD=185 ! '*** COORD BAS 


YA1=190 
YA2=190 
YA3=185 

13,0 «PR INT "NB PHOT".i 
280 LOCATE 33,14,0=PRINT"PRISES="J 
290 LOCATE 35,15,0 : PRINT PH ; 

299 '***** TRACE DES LIMITES DU TERRAIN 
ET DE LA BASE ***** 

300 BOX<60,0 >“<256,192 >,0 
320 BOX<133,69 )-<186,ï 22 >,0 

350 PH=0 : •* M A Z NB DE PHOTOS PRISES 

360 KO=0 ! ' M A Z INDIC DE COLLISION 

370 OK=0 ! ' M A Z INDIC DE REUSSITE 

380 ****** POSIT. MISSILE DANS SA BASE 

385 XM0=159 ■ YM0=95 
390 XM1=159 • YM1=95 
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400 XM2-XM1 = YM2=YM1 

410 XM3-XM2 = YM3=96 

420 ****** TRACE DES TRAJECTOIRES *** 

430 ******* TRAJECTOIRE DE !... AVI.OH ** 

440 FOR Q=1 TO 5 

450 PSET<XA2+Q,YA2>,-11= PSET<XA2-Q,YA2> 
,-11* PSETCXA2,YA2+0>,-11* PSETCXA2,YA2- 
Q >, — 11 
460 NEXT 0 

465 LINECXA0,YA0>-C XA1,YA1>,4 
470 LINEC XA1,YA1>-CXA2,YA2>,4 
430 LINEC XA2,YA2>-C XA3,YA3>,4 
490 FOR 0=1 TO 5 

500 PSETC XA3+Q, YA3 >, 4 * PSETC XA3--Q, YA3 > 
, 4 * PSETCXA3,YA3+Q>, 4 = PSETCXA3,YA3- 
0), 4 

510 NEXT 0 

515 ******* DECOMPTE DES PHOTOS PRISES 
520 IF XA3M40 AND XA3C178 AND YA3>76 AH 
D YA3< 114 THEN PH=PH+1= BEEP * BEEP * BEEP * 
BEEP * BEEP * BEEP * BEEP * BEEP * BEEP * BEEP * I...OCAT 
E 35,15,0*PRINT PH 
530 *******TRAJ DU MISSILE ***** 

540 FOR 0-1 TO 5 

550 PSETC XM2+Q,YM2+Q >,-11* PSETCXM2-0,YM 
2+0 >,-11 * PSETC XM2-0,YM2-0>,-11* PSETCXM 
2+0,YM2-0>,-11 
560 NEXT 0 

565 LINEC XM0,YM0>-C XM1,YM1>,1 
570 LINEC XM1,YM1>-C XM2,YM2>,1 
580 LINEC XM2,YM2>-CXM3,YM3>,1 
590 FOR 0=1 TO 5 

600 PSETCXM3+0.YM3+0>, 1 = PSETCXM3-Q,YM 
3+0>, 1 * PSET< XM3-Q,YM3-0 >, 1 * PSETCXM 
3+0,YM3-Q >, 1 
610 NEXT 0 

615 LINEC 60,0 >—C256,0 >,0 

620 IF 0K*=1 THEN 1900 

630 IF K0**=1 THEN 1700 

690 ****** ORIENT. DE L AVION ****** 

700 A32*****S0RC C YA3-YA2 Y' 2+C XA3-XA2 Y2 > 

710 SNOA*=C YA3-YA2 >/A32 

720 CSOA=C XA3-XA2 VA32 

750 * **** DEPLACEMENT DE !... AVION ***** 

760 B$=ÏHKEY$ 

770 IF B4="" THEN 760 

780 IF B$="l" THEN 0X=-PI/2 -'(-G 90 > 

790 IF B$="2" THEN 0X=-PÏ/4 = *C=G 45> 

300 IF B$="3" THEN 0X== 0 * * C TOUT DROIT > 

310 IF B$="4" THEN 0X= P1/4 * •’ C *=D 45 > 

820 IF B$="5" THEN 0X= P1/2 = 'C=D 90> 

330 CS02=CS0A*C0SCOX >-SNOA*SINC OX> 

340 SN02=SN0A*C0SCOX)+CS0A*8INC OX> 

850 ******* BORD DU TERRAIN RENCONTRE ? 
360 YC=YA3+FIXC SGNC SN02>*.99+SN02>*VA 
870 XC****=XA3+F I XC SGNC CS02 >*. 99+CS02 >*VA 
8AÂ IF XC-C69 OR xc>?49 OR ŸC:<’5 OR Vf:>185 
THEN 760 

890 XA0=Xfil *YA0=YA1 =XA1=XA2 *YA1“YA2 ' 
XA2=XA3 * YA2****=YA3 *XA3=XC =YA3=YC 
900 ******* MOUVT DU MISSILE ****** 

910 DMA=SQRCC YA3-YM3> A 2+CXA3-XM3> A 2> 

920 SNO1=CYA3-YM3>/DMA 
9S0 cso 1 . =C XA3-XM3 >/DMA 


940 XM0=XM1 !YM0=YM1 =XM1=XM2 =YM1=YM2 

: XM2=XM3 =YM2=YM3 

950 FOR E=1 TO .2 STEP -.2 

960 XX=E*VM*CSO1+XM2 

970 YY=E*VM*SNO1+YM2 

930 IF E=1 THEN XM3=XX= YM3==YY 

990 DMA-SQRCC YY -YA3 > A 2+CXX -XA3> A 2> 

1000 IF DMA<8 THEN KO=*=i ■XM3==XA3•YM3*=YA3 

: GOTO 430 :'***.** COLLISION***** 

1010 NEXT E 

1020 '****TEST MISSION ACHEVEE 
1050 IF XA3=XAD AND YA3-YAD AND PH>=4 T 
HEN 0K=1^ ******* MISSION ACCOMPLIE *** 
1060 GOTO 430 

1700 LOCATE 13,25,0.’COLOR 15’PRÏNT" COLL. 
ISION ! 

1710 FOR I =1 TO 5 

1720 PSETC XA3+1, YA3+1 >, 2 ■ PSETC XA3+1., Y A3 
-1>,2 »PSETC XA3-1,YA3+1>,2 <PSETC XA3-1,Y 
A3-I >, 2 

1750 PSETC XM3,YM3+1>,15 = PSETCXM3,YM3-1>, 
15 «PSETC XM3+1,YM3>,15 = PSETC XM3-1,YM3>,15 

1760 NEXT I 

1770 PLAY "L96REL72REL24REL96REL72FAL24M 
IL72MIL24REL72REL24D0#L96RE" 

1790 GOTO 2000 

1900 LOCÂTE 10,25,0=COLOR 4=PRINT"MISSI" 
; = COLOR 7 = PR I HT " ON ACC 11 1 = COLOR 1 = PR I NT " 0 
MPLIE";'COLOR 0 

1920 PLAY "L24REL43REL24REL48S0S0LALA05L 
4SRE04L18SIL48S0PPPP" 

2000 ****** UNE AUTRE ? **** 

2010 FOR 0=1 TO 2000=NEXT 

2020 CLS = PRINT = PRIHT = PRINT = PRINT = PRINT = P 

RINT = ATTRB 1,1 


2030 PRINT " UNE AUTRE ?" 

2040 D$=INKEY$ 

2050 IF D$==" " THEN 2040 

2060 ATTRB 0,0=CLS=IF D$="N" THEN END EL 

SE CLS'RUN 

3000 CONSOLE 6,24=CLS 

3010 PRINT" VOUS PILOTEZ UN AVION ESP10 
H C + BLEU>.VOUS ARRIVEZ EN VUE D * UNE BAS 
E ENNEMIE PROTEGEE PAR UH MISSILE C* RO 
IJGE>.DES VO-TRE ENTREE AU DESSUS DU TERR 
ITOIRE IL VA VOUS POURCHASSER." 

3015 PRINT 

3020 PRINT" VOTRE MISSION CONSISTE A SU 
RVOLER LA BASE CDES PHOTOS SONT ALORS P 
RI SES AUTO-MAT IQIJEMENT, IL VOUS EN FAUT A 
IJ MOINS 4> ET A RETOURNER A VOTRE BASE A 
VAHT QUE LEMISSILE NE VOUS AIT DETRUIT." 
3025 PRINT 

3030 PRINT" VOUS POUVEZ CHANGER LA DIRE 
CTION DE VO-TRE AVION EN APPUYANT SUR LE 
S TOUCHES DE 1 A 5= 1= A GAUCHE 90, 2= 

A GAUCHE 453= TOUT DROIT, 4= A DROITE 45 
, 5 A DROI-TE 90" 

3035 PRINT 

3060 PRINT"POUR REPRENDRE LE JEU TAPEZ U 


NE TOUCHE."; 

3070 T$==ÏNKEY$ = IF T$="" THEN 3070 
3080 CONSOLE 0,24 
3090 RIJN 


160 
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COLLECTIONNEZ 

VOS ANCIENS T1T 


Cette reliure vous permet 
:e icnserver intacte votre collection 
:=•: r- : ' jnnéros et de les consulter facilement. 
= e est conçue pour recevoir 
"2 numéros ( 1 an ) de TILT. 
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A PARAITRE 

CHEZ VOIRE MARCHAND 
DE JOURNAUX UN HORS SERI 
QUI VOUS DIT TOUT SUR 
LES P C ET COMPAT IBLES 

Vingt configurations à base de compatible PC 
pour tous les profils d'utilisateur. 

Tous les jeux, du commerce ou du domaine public. 

Les logiciels de création musicale, de création 
graphique, les traitements de texte, 
les gestions de fichiers, les logiciels de PAO, de CAO, les éducatifs. 

Tous les périphériques : imprimantes, moniteurs, 
drives, disques durs, tablettes graphiques, joysticks, scanners, 
souris, modems, cartes. De la programmation... 






